Ответы на вопрос:
Var a,b,c,x: integer; begin x: =random (899) +100; writeln('x= ', x); a: = x div 100; {первая цифра} b: =(x mod 100) div 10; {вторая цифра} c: = x mod 10; {третья цифра} writeln(a,',',b,',',c); end.
Популярно: Информатика
-
nparshina1419.01.2022 04:29
-
333310016.02.2021 23:23
-
anfisakadnikova26.02.2023 06:39
-
MIO0515.03.2021 15:51
-
ПАРРА26.06.2023 13:38
-
Anhard2320.10.2020 13:41
-
ира103101.05.2023 22:13
-
077316.09.2020 11:52
-
PolinaReyblogger15.09.2022 01:22
-
АлияКью01.02.2021 02:04