В последовательности четырех целых чисел, заданных с клавиатуры, найти количество нулей.
язык программирования указывайте пожалуйста
pascal ABC
С циклом или без него?
с циклом
Числа последовательности вводятся по очереди или в одной строке?
по очереди
program raf105;
var i,a,nul: integer;
begin
writeln('Введите 4 числа по очереди:');
for i:=1 to 4 do
readln(a);
if a = 0
then nul:= nul+1;
end;
writeln('Количество нулей: ',nul);
end.
большое спасибо))