program raf105;
var i: integer;
begin
i:= 0;
while i < 5 do
if (i mod 2 <> 0)
then writeln(i);
i+= 1;
end;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program raf105;
var i: integer;
begin
i:= 0;
while i < 5 do
begin
if (i mod 2 <> 0)
then writeln(i);
i+= 1;
end;
end.
Pascal ABC 3.4.2.