===== PascalABC.NET =====
procedure DoAll;
begin
for var i := 1 to 100 do
if Odd(i) then
Print(i);
Writeln
end;
DoAll
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== PascalABC.NET =====
procedure DoAll;
begin
for var i := 1 to 100 do
if Odd(i) then
Print(i);
Writeln
end;
begin
DoAll
end.