Требуется использовать язык Паскаль
Даны три целых числа A, B, C. Значения чисел вводятся с клавиатуры. Определить количество нулей среди данных чисел. Результат вывести на экран.
{PascalABC}
var a,k,i:integer;
begin
for i:=1 to 3 do begin
write(Введите число ,i, = );readln(a);
while a>10 do begin
if a mod 10 = 0 then k:=k+1;
a:=a div 10;
end;
end;
writeln(Кол-во нулей в данных числах = ,k);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
