Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

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

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

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.