Создать алгоритм вычисления суммы кубов четных чисел от 100 до 300.
Создать алгоритм вычисления суммы кубов четных чисел от 100 до 300.
Гость
Ответ(ы) на вопрос:
ГостьVAR
S: longint;
begin
for k: integer := 100 to 300 do
s += sqr(k);
writeln(s);
end.
Гостьvar
s: longint;
i: integer;
begin
s := 0;
for i := 100 to 300 do
s := s + i * i * i;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы