Регистрация
Zebra67890
13.02.2022 02:33
Информатика
Есть ответ 👍

Среди введённых n чисел найти сумму всех чётных чисел. (в pascal )

178
411
Посмотреть ответы 2

Ответы на вопрос:

Акинаййй
Акинаййй
4,7(98 оценок)
Program gt; var n,i,a,s: integer; begin readln(n); s: =0; for i: =1 to n do begin read(a); if(a mod 2=0)then s: =s+a; end; writeln(s); end.
kolesnik23
kolesnik23
4,8(58 оценок)

Объяснение:

Смотря сколько стоит шоколадка и сколько у Марички денег

Популярно: Информатика