Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите решить задачу в Паскаль Найдите колличество чётных чисел

Ответ оставил Гость

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.