Напишите программу для решения : дано целое неотрицательное - вопрос №1640208 от fedorbrednikoff 06.05.2022 02:45

Question

Информатика: Напишите программу для решения : дано целое неотрицательное число. определить количество нулей в его десятичной записи, на до на паскале, ! заранее .

fedorbrednikoff · Answer

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.