Регистрация
Cronus1Oleg
09.07.2020 18:46
Информатика
Есть ответ 👍

Ввести n чисел вывести количество чётных.(паскаль)

203
206
Посмотреть ответы 2

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

maksim5a
maksim5a
4,7(36 оценок)
Program n1; var a,i,n,k: integer; begin readln(n); k: =0; for i: =1 to n do begin readln(a); if a mod 2=0 then k: =k+1; end; write(k); end.
lourln
lourln
4,7(62 оценок)
Var n,d,a1,a0,i: integer; begin writeln('d='); read(d); writeln('n='); read(n); writeln('a1='); read(a1); a0: =a1; for i: =2 to n do a0: =a0+d; writeln('сумма равна'); writeln(a0); end..

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