uses crt;
var i:byte;
sm:real;
begin
clrscr;
sm:=0;
for i:=2 to 10 do
sm:=sm+i/(i+1);
write('Summa=',sm:0:5);
readln
end.
uses crt;
var i,sm:integer;
begin
clrscr;
sm:=0;
for i:=1 to 10 do
sm:=sm+i*i;
write('Summa=',sm);
readln
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.