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

Question

Информатика

Кузьма

19 августа, 00:42

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

+1

Ответы (1)

Знаете ответ?

Левон · Answer 1

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.