Question

Написать программу вычисления суммы кубов всех четных чисел от 4
до 14.
Pascal

Answer 1

Ответ:

Program p1;

Var i,  k: integer;

Begin

k:=0;

For i:=4 to 14 do begin

if (i mod 2 =0) then k:=k+i*i*i;

end;

Writeln('Сумма кубов всех четных чисел от 4 до 14 - ',k);

End.