1. С клавиатуры вводитсядет N чисел. Сколько среди них чётных? 2. Вводится...

Question

1. С клавиатуры вводитсядет N чисел. Сколько среди них чётных?
2. Вводится последовательность чисел, заканчивающийся 0. Определить сколько чисел в этой последовательности.

Answer 1

Var n,i,a,k: integer;
begin
write('Введите количество чисел (N): ');
readln(n);
for i := 1 to n do
begin
write('Введите число: ');
readln(a);
if a mod 2 = 0 then k:=k+1;
end;
writeln('Количество чётных чисел: ',k)
end.

var a,k:integer;
begin
write('Введите число: ');
readln(a);
while a<>0 do
begin
k:=k+1;
write('Введите число: ');
readln(a)
end;
writeln('Количество чисел в последовательности: ',k)
end.