var
x: real;
i: byte;
begin
x := 0.5;
for i := 1 to 5 do
Write(x,' ');
x := x + 0.25
end
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
x: real;
i: byte;
begin
x := 0.5;
for i := 1 to 5 do
begin
Write(x,' ');
x := x + 0.25
end
end.