Помогите решить задачу в Паскаль Найдите колличество чётных чисел
Помогите решить задачу в Паскаль Найдите колличество чётных чисел
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы