С ИНФОРМАТИКОЙ Запишите все натуральные числа, удовлетворяющие неравенству?
5)Выполните действия
239
347
Ответы на вопрос:
Program n1; const n=10; var a: array [1..n] of integer; i,sum: integer; begin sum: =0; for i: =1 to n do begin write('введите ',i,' число: '); readln(a[i]); end; for i: =1 to n do if(a[i] mod 2=0) then sum: =sum+a[i]; writeln('сумма: ',sum); end.
Популярно: Информатика
-
6262024332326.02.2021 07:06
-
YYanamaiY06.03.2020 14:22
-
Alina431513.04.2021 20:43
-
kakashonka122.04.2023 22:39
-
Ludmila2804198507.06.2020 20:46
-
Andrey78509.12.2020 12:07
-
sophia7502.04.2023 00:00
-
daniil809222828.10.2021 12:45
-
asel0707117.12.2020 17:31
-
fionovaa21.05.2023 05:13