Напишите программу вычисления суммы квадратов чисел от 50 до 150.Напишите программу...

Question

Напишите программу вычисления суммы квадратов чисел от 50 до 150.
Напишите программу вычисления квадрата суммы чисел от 50 до 150.

Answer 1

Решение на Паскале
var i, sum, s, ks :integer;
Begin
s:= 0;
for i:=50 to 150 do s:=s+i*i;
sum:=0;
for i:=50 to 150 do sum:=sum+i;
ks:=sqr(sum);
writeLn('Сумма квадратов целых чисел от 50 до 150 = ',s);
writeLn('Квадрат суммы целых чисел от 50 до 150 = ',ks);
end.