Помогите решить задачу в Паскаль Найдите колличество чётных чисел
Answers & Comments
evgen4ik98
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.
Answers & Comments
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.