5лет
Сборная Домашка
+4Как это сделать? Pascal ( читать ниже)
Наш учитель информатики толком ничего не объясняет, говорит чтобы мы всё делали сами, но я не понимаю.. Помогите с заданием: Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 0.
По дате
По рейтингу
program z;
var a,k:integer;
begin
readln(a);
while a>0 do begin
if (a mod 10)=0 then k:=k+1;
a:=a div 10;
end;
writeln(k);
end.
Делай цикл, который делит исходное число на 10, 100, 1000 и т. д. и считай количество встретившихся нулей