Составить программу нахождения суммы чисел от 10 до 20 и вывода их ** экран, срочно! Это...

Question

Составить программу нахождения суммы чисел от 10 до 20 и вывода их на экран, срочно! Это в паскале!

Answer 1

Program summa; 
var i,s:integer; 
begin
s:=0; 
for i:=10 to 20 do 
s:=s+sqr(i); 
writeln(s); 
end.

Comments

program a1;
vAR i,s:integer;
BEGIN
s:=0;
for i:=1 to 10 do
s:=s+sqr(i);
writeln(s);
END.

---

program summa;
var i,s:integer;
begin
s:=0;
for i:=10 to 20 do
s:=s+sqr(i);
writeln(s);
end.