Нужно написать программу в паскале, используя оператор цикла с постусловием repeat until. "определить количество натуральных чисел, рассматривая их в порядке возрастания, сумма кубов которых не превышает 50000."

izmoksi izmoksi    3   20.07.2019 11:50    3

Ответы
vladsmolin4554 vladsmolin4554  22.09.2020 20:58
Var
  i, s: longint;

begin
  i := 1;
  s := 0;
  repeat
    s := s + i * i * i;
    i := i + 1;
  until s >= 50000;
  writeln(i);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика