Ответы на вопрос:
Var k, n, x, y, i: integer; begin k : = 1; n : = 100000; y : = 65432; for i : = 0 to 4 do begin x : = k * i + x; k : = k * 10; y : = y mod n; n : = n div 10; writeln(x: 1, ' ': 8 - i, y) end end.
Популярно: Информатика
-
попаоп06.12.2020 19:12
-
yulya15810.12.2022 07:04
-
смайлкот224.11.2021 07:42
-
kraken4509.10.2022 08:09
-
Wikwsejjj17.12.2022 17:02
-
Алька051110.05.2021 23:46
-
Felipinec05.01.2023 12:47
-
Yulia210714.11.2022 00:06
-
Котик030311.04.2022 16:50
-
mamka1806.02.2023 12:05