Используя цикл типа FOR ,вывести ** экран квадраты чисел от 1 до 10. Подсчитать сумму...

Question

Используя цикл типа FOR ,вывести на экран квадраты чисел от 1 до 10. Подсчитать сумму полученных результатов.

Comments

Pascal?

---

Да

---

Помогите пожалуйста , очень срочно нужно

Answer 1

Program n1;
var i,sum: integer;
begin
sum:=0;
for i:=1 to 10 do 
begin
writeln(i*i);
sum:=sum+i*i;
end;
write('сумма: ',sum);
end.

Answer 2

Вот решение вашей задачи

Comments

Writeln (l*l) или (1*1)??

---

l*l