Мышка бежала хвостиком махнула яйцо раблилось и ахтунг
Var
n:longint;
k:integer;
begin
Write('Введите натуральное число: '); Read(n);
k:=0;
while n>0 do begin
if (n mod 10)=0 then Inc(k);
n:=n div 10
end;
Writeln('Количество нулей в числе равно ',k)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число: 15035003
Количество нулей в числе равно 3
1) (3^3533) mod 11413 = 0925416439 5306321512 8048808346 415530437 E+1681
2) (15^3533) mod 11413 = 1830917514 4780370792 9786507077 528501636 E+4151
3) (86^3533) mod 11413 = 3545048664 9875948271 4616578750 582373658 E+6830