Составьте программу вычисляющую сумму квадратов всех чисел от 1 до n
Answers & Comments
djonik2
Var a: Real; i,n: Integer; Begin WriteLn('Введите ваше ЭН'); ReadLn(n); a:=0; for i:=1 to n do a:= a + sqr(i); end; WriteLn('Сумма квадратов равна=',a); ReadLn; end.
Answers & Comments
a: Real;
i,n: Integer;
Begin
WriteLn('Введите ваше ЭН'); ReadLn(n);
a:=0;
for i:=1 to n do
a:= a + sqr(i);
end;
WriteLn('Сумма квадратов равна=',a);
ReadLn;
end.