freepascal.ru

Это нужно реализовать

Код: Выделить всё

var
  i : integer;
  q : real;
begin
  q := 0;
  i := 99;
  while i > 0 do begin
    q := sqrt(q+i);
    dec(i,3);
  end;
end.


нет?

Да спасибо, ну никак не мог догадаться, только начинаю изучать. Спасибо!

Добавлено спустя 25 секунд:
скалогрыз
Да спасибо, ну никак не мог догадаться, только начинаю изучать. Спасибо!