var i: byte;
begin
for i := 20 downto 10 do write(' ', i);
end.
// PascalABC.NET 3.4
begin Range(20,10,-1).Println end.
Это полная программа.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var i: byte;
begin
for i := 20 downto 10 do write(' ', i);
end.
// PascalABC.NET 3.4
begin Range(20,10,-1).Println end.
Это полная программа.