нужно написать программу с помощью двух циклов найти квадрат суммы всех натуральных чисел от 5 до 10

1

Ответы и объяснения

2012-12-19T11:16:03+00:00

Program PR1;
uses crt;
var i,b:integer;
begin
clrscr;
b:=0;
for i:=5 to 10 do b:=b+i;
writeln(sqr(b));
end.

 

 

 

Program Pr1;
uses crt;
var i,b:integer;
begin
clrscr;
i:=5;
b:=0;
repeat
b:=b+i;
i:=i+1;
until i>10;
writeln(sqr(b));
end.