напишите программу для решения задачи: Дано целое неотрицательное число. Определить количество нулей в его десятичной записи, на до на Паскале,
ОЧЕНЬ НУЖНО!!! Заранее благодарю.
Program noli;
Var X, Y: integer;
Begin
S:=0;
Write (Введите число Х);
Read (X);
While X<>0 do begin
Y:= X mod 10;
If Y = 0 then S:= S + 1;
X:= X div 10;
Write (Количество нулей в числе, S);
End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
