Ответы на вопрос:
Procedure num ( x: integer ); var s: string; i: integer; begin s : = inttostr(x); for i : = 1 to length(s) do writeln( i, ' цифра: ', s[i] ); end; var numeric: integer; begin write('введите число: '); readln(numeric); num(numeric); end.
Популярно: Информатика
-
Дончара09.01.2021 12:29
-
Какфундик10.03.2020 21:53
-
ЕваЛя31.05.2021 12:05
-
резной77713.03.2023 04:32
-
Лісанна15.03.2021 22:28
-
55576615.04.2021 23:39
-
Lera680725.09.2021 08:12
-
konfetka751018.07.2021 10:59
-
sanie777velieva01.07.2022 05:40
-
аліна5514.03.2023 12:58