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