Question

Хелп! Информатика! Срочно!

Найти сумму квадратов целых чисел от 33 до 38. Cоставить программу на Паскале, используя оператор цикла For. А затем составить программу еще одним способом, используя цикл While или Repeat.​

Answer 1

Ответ:

program a1;

var a,b: integer;

begin

for a := 33 to 38 do

begin

b:= b + (a*a);

end;

writeln (b);

end.

program a2;

var a,b: integer;

begin

a:= 33;

while a < 39 do

begin

b:= b + (a*a);

a:= a+1;

end;

writeln (b);

end.

Объяснение: