Question

Исправьте программу, нужно Напечатать корень из 17 из 16 из 15 и т дДо корня из 3var x:integer;begin for x:=sqr(17)to 3 do writeln ('x');end.​

Answer 1

Ответ:

var x:integer;

begin

for x:=17 downto 3 do writeln(sqr(x));

end.

Answer 2

Программа, которую вы предоставили, имеет несколько ошибок. Вот исправленный вариант:

pascalCopy code
var
  x: integer;

begin
  for x := 17 downto 3 do
    writeln(sqrt(x));
end.

В этой исправленной программе мы используем оператор downto, чтобы перебирать значения от 17 до 3 в убывающем порядке. Затем мы используем функцию sqrt (корень) для вычисления квадратного корня каждого значения и выводим результат с помощью writeln.