Question

По информатике проходим паскаль. Дано задание найти количество 5 в числе х!помогите пожалуйста.

Answer 1

Здесь простое решение:

Превращаем число Х в строку символов,
а затем , просматривая эту строку пытаемся найти в нем пятерки.

Что-то типа этого:

var X, Col,  i: integer;
     Stroka: String; 
begin
Col:=0;
 Write('Ведите число Х='); ReadLn(X);
Str(x, Stroka);
for i:=1 to length (Stroka) do
    if Stroka[i]='5' then Col:=Col+1;
WriteLn('Число пятерок=' , Col);
ReadLn;
end.

Answer 2

спасибо за помощь)