Используя цикл REPEAT, вывести на экран первые N членов последовательности: 1, 3, 7, 15, 31, 63, 127... (Turbo Pascal)
Используя цикл REPEAT, вывести на экран первые N членов последовательности: 1, 3, 7, 15, 31, 63, 127... (Turbo Pascal)
Гость
Ответ(ы) на вопрос:
Гостьvar
k, N: Integer;
begin
Write("N = ");
ReadLn(N);
k:=1;
Repeat
Dec(N);
k:=k * 2;
WriteLn(k - 1);
Until (N < 0)
end.
Не нашли ответ?
Похожие вопросы