Дано целое число. Определить сколько в нем цифр 5. Написать программу в Паскаль АВС
Answers & Comments
Galina2013
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016 begin Writeln('Количество пятерок в числе равно ', ReadInteger('n=').ToString.Where(c->c='5').Count) end.
Тестовое решение: n= 3456453 Количество пятерок в числе равно 2
Answers & Comments
begin
Writeln('Количество пятерок в числе равно ',
ReadInteger('n=').ToString.Where(c->c='5').Count)
end.
Тестовое решение:
n= 3456453
Количество пятерок в числе равно 2