Напишите программу в Pascal ABC которая будет считать нули в числе
Напишите программу в Pascal ABC которая будет считать нули в числе
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program CountZeros;
var
number, countZeros: integer;
begin
countZeros := 0;
write('Enter a number: ');
readln(number);
while number > 0 do
number := number div 10;begin
if number mod 10 = 0 then
countZeros := countZeros + 1;
end;
writeln('Number of zeros in the entered number: ', countZeros);
end.