Используя цикл repeat, вывести на экран первые n членов последовательности: 1, 3, 7, 15, 31, 63, (turbo pascal)

lanceva3 lanceva3    2   01.06.2019 10:10    1

Ответы
aiiiotbahiiiot aiiiotbahiiiot  02.07.2020 15:12
Var
  k, N: Integer;
begin
  Write("N = ");
  ReadLn(N);
  k:=1;

  Repeat
    Dec(N);
    k:=k * 2;

    WriteLn(k - 1);
  Until (N < 0)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика