Определить из каких цифр состоит число - 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 происходит следующее:

  1. Создаются переменные S и N типа String и LongInt соответственно.
  2. Переменной N присваивается значение 1450267.
  3. С помощью функции Str(N, S) переменной S присваивается строковое представление числа N.
  4. Затем идет цикл for, который проходит по каждому символу в строке S.
  5. Внутри цикла каждый символ выводится на экран с помощью функции Write(S[i]:2), где i - это текущий индекс символа в строке S.
  6. После завершения цикла ReadLn считывается ввод пользователя.

Оцени полезность:

15   голосов , оценка 3.867 из 5
Похожие ответы