Question

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

Answer 1

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

b6d436f9b07c576ab4127e38845c37be.pas

Answer 2

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

Answer 3

l*l

Answer 4

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.

b6d436f9b07c576ab4127e38845c37be.pas