Регистрация
ника3931
12.07.2021 09:58
Информатика
Есть ответ 👍

Дано n-значение число. сосчитать количество цифр равных нулю. На языке паскаль​

150
365
Посмотреть ответы 2

Ответы на вопрос:

alenapanina00
alenapanina00
4,4(53 оценок)

var

x, counter : integer;

begin

readln(x);

x := abs(x);

while x > 0 do

begin

if (x mod 10 = 0) then

counter := counter + 1;

x := x div 10;

end;

writeln(counter);

end.

kiry42rus
kiry42rus
4,7(10 оценок)
Все набрать пятерками все набрать десятками 10+10+10+10+5+5 10+10+10+5+5+5+5 10+10+5+5+5+5+5+5 10+5+5+5+5+5+5+5+5

Популярно: Информатика