Паскаль 1)Вывести числа от 1 до 20 2) От 20 до 1

Question

Владимир · Accepted Answer

Program schet; 
Var i : integer; 
Begin 
Writeln (‘Числа от 1 до 20’) 
For i:= 1 to 20 do 
Begin 
Write (i, ‘ ‘); 
End; 
Writeln (‘Числа от 20 до 1’) 
For i:= 20 downto 1 do 
Begin 
Write (i, ‘ ‘); 
End; 
Readln(); 
End.

Сергей Кузнецов · Answer

for i:=1 to 40 do begin 
if(i <= 20) write(i,' ') else begin 
writeln; 
write(40 - i,' '); 
end; 
end;

Александра · Answer

var i:integer; 
begin 
for i:=1 to 20 do write(i:3); writeln; 
for i:=20 downto 1 do write(i:3); writeln; readln 
end.

Наталия Семенова · Answer

Два цикла сделай. В чём сложность? 
 
А можно я на яваскрипте сделаю? 
 
for (var str='',n=-19; n < 20; str += 20-Math.abs(n++) + ' '); 
alert(str.replace('20', '20
20')); 
 
На перле было бы ещё забавнее, там вроде как можно диапазоны задавать, но я его ещё очень плохо знаю. На пайтоне тоже было бы коротко, пожалуй

Маргарита Ушакова · Answer

используй операторы цикла, в крайнем случае сделай по колхозном прописав каждое число!!!!