var n: Integer; y: Real; begin n := 16; y := sqrt(n); n := Round(sqr(y)); writeln(n); end.
Этот код сначала берет квадратный корень целого числа n, сохраняет его в вещественной переменной y, а затем находит квадрат этой вещественной переменной и сохраняет результат в целой переменной n.
Да, такое возможно в Pascal. Вот пример кода:
varn: Integer;
y: Real;
begin
n := 16;
y := sqrt(n);
n := Round(sqr(y));
writeln(n);
end.
Этот код сначала берет квадратный корень целого числа n, сохраняет его в вещественной переменной y, а затем находит квадрат этой вещественной переменной и сохраняет результат в целой переменной n.