Ответы на вопрос:
Procedure stolb(a: integer); var s: string; i: integer; begin str(a,s); for i: =1 to length(s) do writeln(s[i]); end; var a: integer; begin write('введите число: '); readln (a); stolb (a); readln end.
Популярно: Информатика
-
viktordemi201524.05.2021 00:15
-
JICNX24.01.2022 04:54
-
pakhomovalexandra09.05.2023 15:34
-
SvetlanaAstanovka27.08.2020 18:21
-
Невидимка00311.04.2020 12:10
-
Kamila28163705.01.2022 12:55
-
lt2005.09.2022 00:18
-
012322021002.08.2020 20:41
-
konovalova70122.07.2021 13:03
-
33340323.10.2021 21:14