Дано натуральное число n.Определить сколько в числе нулей.Pascal ABC
Var n,i:longint;beginread (n);i:=0;repeatif (n mod 10 = 0) then i:=i+1;n:= n div 10;until (n=0);writeln(i);End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
