Помогите решить
Добавлено: 16.09.2009 12:50:31
Это нужно реализовать
Код: Выделить всё
var
i : integer;
q : real;
begin
q := 0;
i := 99;
while i > 0 do begin
q := sqrt(q+i);
dec(i,3);
end;
end.
нет?
Код: Выделить всё
var
i : integer;
q : real;
begin
q := 0;
i := 99;
while i > 0 do begin
q := sqrt(q+i);
dec(i,3);
end;
end.