- 1
- 2
- 3
- 4
- 5
- 6
var f,i:Integer;
begin
for i:=1 to 100 do
for i:=100 downto 1 do
writeln('I=',i);
end.
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 1
+125
var f,i:Integer;
begin
for i:=1 to 100 do
for i:=100 downto 1 do
writeln('I=',i);
end.
"ПОЧЕМУ ЭТА ТВАР СЧИТАЕТ ТОЛЬКО В 1 СТОРОНУ?!"