Вводить с клавиатуры числа и посчитать количество - вопрос №7456710 от vovastepochkin 08.05.2021 09:43

Question

Информатика: Вводить с клавиатуры числа и посчитать количество четных чисел до нуля. создать программу используя until и repeat

vovastepochkin · Answer

Var A,k:integer;Begink:=-1;RepeatRead(A);if A mod 2 = 0 then k:=k+1;Until A=0;WriteLn( k = ,k)End....