По информатике проходим паскаль. Дано задание найти количество 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.
Превращаем число Х в строку символов,
а затем , просматривая эту строку пытаемся найти в нем пятерки.
Что-то типа этого:
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
спасибо за помощь)
Новые вопросы
География,
2 года назад
Химия,
2 года назад
Физика,
9 лет назад
Математика,
9 лет назад
История,
10 лет назад