Определить из каких цифр состоит число - Turbo Pascal
Формулировка задачи:
определить из каких цифр состоит число
Решение задачи: «Определить из каких цифр состоит число»
textual
Листинг программы
var S: String; N: LongInt; i: integer; begin N := 1450267; Str(N, S); for i := 1 to Length(S) do Write(S[i]:2); ReadLn; end.
Объяснение кода листинга программы
В данном коде на Turbo Pascal происходит следующее:
- Создаются переменные S и N типа String и LongInt соответственно.
- Переменной N присваивается значение 1450267.
- С помощью функции Str(N, S) переменной S присваивается строковое представление числа N.
- Затем идет цикл for, который проходит по каждому символу в строке S.
- Внутри цикла каждый символ выводится на экран с помощью функции Write(S[i]:2), где i - это текущий индекс символа в строке S.
- После завершения цикла ReadLn считывается ввод пользователя.