ПОМОГИТЕ ПОЖАЛУЙСТА!
нужно сдать до завтра
Составить программу для вычисления выражения 1 в квадрате + 2 в квадрате + 3 в квадрате +... + 10 в квадрате
нужно сдать до завтра
Составить программу для вычисления выражения 1 в квадрате + 2 в квадрате + 3 в квадрате +... + 10 в квадрате
More Questions From This User See All
Answers & Comments
pascal
var a,s, i: integer;
begin
s := 0;
a := 1;
for i:=1 to 10 do begin
s:=s+a*a; a:=a+1;
end;
writeln(s)
end.