Создать алгоритм вычисления суммы кубов четных чисел от 100 до 300.

17312 17312    2   09.06.2019 01:30    0

Ответы
Kirillsharko Kirillsharko  07.07.2020 23:29
Var
    s: longint;
    i: integer;
begin
    s := 0;
    for i := 100 to 300 do
        s := s + i * i * i;
    writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Anna1855 Anna1855  07.07.2020 23:29
VAR
  S: longint;

begin
  for k: integer := 100 to 300 do
    s += sqr(k);
  writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика