Найти сумму квадратов всех целых чисел от a до 50 (a вводится с клавиатуры);

Question

Найти сумму квадратов всех целых чисел от a до 50 (a вводится с клавиатуры);

Comments

PASCAL

Answer 1

Могут быть ошибки, забей в паскале, поправь
var a,b:integer
begin
a:=0;
b:=0;
readln (a);
if a<51 do<br>b:=a*a+b
a:=a+1
end;
writeln (b);
end.

Comments

Написать программу Pascal

---

var a

---

ой, случайно написал.

---

var a

---

var a,b:integer
begin
a:=0;
b:=0;
readln (a);
if a<51 do<br>b:=a*a+b
a:=a+1
end;
writeln (b);
end.