Question

исправьте программу, нужно
Напечатать корень из 17 из 16 из 15 и т д
До корня из 3


var 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.