Составьте программу, по которой компьютер десять раз - вопрос №681137 от msteep6 27.10.2022 04:07

Question

Другие предметы: Составьте программу, по которой компьютер десять раз запросит ввод целых чисел и в результате сообщит, сколько среди введенных

msteep6 · Answer

Var a, b, c, d:integer;
begin
for a:=1 to 10 do begin
write ('введите число=> ');
readln (d);
if (d mod 2=0) then c:=c+1 else d:=d+1;
end;
writeln ('чётных=> ', c,' нечётных=> ', d);
end.