Информатика, вопрос задал sofiamilly94 , 9 лет назад

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

Ответы на вопрос

Ответил Аноним
0
Здесь простое решение:

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

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

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.




Ответил sofiamilly94
0
спасибо за помощь)
Новые вопросы