Ответы на вопрос:
1) var n: integer; y, x: real; begin readln(x, n); y : = 1; while n > 0 do begin y : = y * x; n : = n - 1; end; writeln(y); end. 2) var a, b, c, t, i: integer; begin readln(a, b, c); writeln(0: 2, ': a=', a, ' b=', b, ' c=', c); for i : = 1 to 10 do begin t : = a; a : = b; b : = c; c : = t; writeln(i: 2, ': ', a, ' ', b, ' ', c); end; end.
Популярно: Информатика
-
Dvoeshnik66616.02.2023 02:13
-
ratmir2rat14.01.2022 17:20
-
vkarant2016l27.11.2022 20:41
-
dilnaz6127.02.2022 20:09
-
Djrktxf18.01.2020 14:19
-
TKluykova14.11.2021 19:41
-
delvar2503.03.2020 20:36
-
xuligan7926.06.2020 00:57
-
imamverdueffsa16.08.2020 13:44
-
Мику3514.08.2022 18:42