Дано целое число. Определить сколько в нем цифр 5.
Написать программу в Паскаль АВС

Сильная задача... решение в один оператор )))

var ch, k: integer;begink:=0;readln(ch);while ch>0 do beginIf ch mod 10 = 5 thenk:=k+1;ch:=ch div 10;end;writeln(k);end.

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016begin  Writeln('Количество пятерок в числе равно ',    ReadInteger('n=').ToString.Where(c->c='5').Count)end.Тестовое решение:n= 3456453Количество пятерок в числе равно 2