Составить программу вычисления суммы квадратов всех целых чисел от -20 до 30
Составить программу вычисления суммы квадратов всех целых чисел от -20 до 30
Гость
Ответ(ы) на вопрос:
Гостьvar i,s:integer; begin s:=0; for i:=-20 to 30 do s:=s+i*i; Writeln(s); end. Вопросы, ошибки, недочеты в ЛС
Гостьvar x,y:integer;
begin
for y:=-20 to 30
x:=x+sqr(y);
writeln(x);
end.
Не нашли ответ?
Похожие вопросы