Question

Блок схема графическая найти сумму кубов всех целых чисел от 20 до 40

Answer 1

program prost;
uses crt;
var a, b: longint;
begin
for a:=20 to 40 do
for b:=20 to 40 do
writeln(a, '^3',' + ', b, '^3', '=', a*a*a + b*b*b);
end.
Повторения не исключал