Впоследовательности четырех целых чисел, заданных с клавиатуры, найти количество нулей.

Елизавета5820 Елизавета5820    1   21.05.2019 15:07    0

Ответы
Vera20000 Vera20000  16.06.2020 07:55

program raf105;

var i,a,nul: integer;

begin

writeln('Введите 4 числа по очереди:');

for i:=1 to 4 do

begin

 readln(a);

 if a = 0

   then nul:= nul+1;

end;

writeln('Количество нулей: ',nul);

end.

PascalABC 3.4.2
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика