Question

Написать программу для извлечения квадратного корня из длинного числа

Answer 1

program ncp;

var

i,a : integer;

k,f: real;

begin

  f := 1;

  readln(a);

  for i := 2 to a do

  f := f *i;

k := sqrt(f);

 write(k);

end.