Question

Составить программу,используя цикл с постусловием:
Вычислить квадратные корни из чисел 900,893,886,879...до тех пор пока это можно делать.

Answer 1

uses crt;
var i:integer;
x:real;
begin
i:=900;
repeat
x:=sqrt(i);
i:=i-7;
write(x,' ');
until i<=0;
end.