Uses crt; var i,k,s,n:integer; begin k:=0; writeln('Последовательность'); readln(n); for i:=1 to n do begin writeln('Введите число'); readln(s); if (s mod 2=0) then k:=k+1; writeln('s=',s); end; writeln('Количество четных=',k); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
