Дано натуральное число. Найдите количество цифр "5" в числе. Паскаль Осень нужно

Ermolenkoo Ermolenkoo    1   01.03.2020 01:00    2

Ответы
Lusihvostfei Lusihvostfei  11.10.2020 15:45

===== PascalABC.NET =====

begin

 var n := ReadInteger;

 var k := 0;

 while n > 0 do

 begin

   if n mod 10 = 5 then

     Inc(k);

   n := n div 10

 end;

 Print('Количество пятерок в числе равно', k)

end.


Дано натуральное число. Найдите количество цифр 5 в числе. Паскаль Осень нужно
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика