Составьте программу, по которой компьютер десять - вопрос №680460 от dashkin678 14.11.2020 03:14

Question

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

dashkin678 · 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.