Используя цикл repeat, вывести на экран первые n членов последовательности: 1, 3, 7, 15, 31, 63, (turbo pascal)
300
500
Ответы на вопрос:
Var k, n: integer; begin write("n = "); readln(n); k: =1; repeat dec(n); k: =k * 2; writeln(k - 1); until (n < 0) end.
Популярно: Информатика
-
bkmz98721.05.2023 09:31
-
татьяна1957109.12.2022 09:15
-
Polina5545401.02.2022 20:42
-
Alisa6661125.03.2021 02:11
-
матиматик3122.11.2022 02:30
-
Amirmusta28.06.2020 01:28
-
lolkekpfff21.09.2020 17:34
-
malinka121227.11.2021 17:07
-
Эзоз09.09.2022 09:21
-
ЛунаВаленте06.09.2022 18:35