Автор Лилька Минни задал вопрос в разделе Другие языки и технологии
Паскаль 1)Вывести числа от 1 до 20 2) От 20 до 1 и получил лучший ответ
Ответ от Debero[гуру]
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.
Источник: писал без компиллятора, могут быть ошибки
Ответ от Арсен Арутюнян[гуру]
for i:=1 to 40 do begin if(i <= 20) write(i,' ') else begin writeln; write(40 - i,' '); end; end;
for i:=1 to 40 do begin if(i <= 20) write(i,' ') else begin writeln; write(40 - i,' '); end; end;
Ответ от Metotron[гуру]
Два цикла сделай. В чём сложность? А можно я на яваскрипте сделаю? for (var str='',n=-19; n < 20; str += 20-Math.abs(n++) + ' '); alert(str.replace('20', '20\n20')); На перле было бы ещё забавнее, там вроде как можно диап
Два цикла сделай. В чём сложность? А можно я на яваскрипте сделаю? for (var str='',n=-19; n < 20; str += 20-Math.abs(n++) + ' '); alert(str.replace('20', '20\n20')); На перле было бы ещё забавнее, там вроде как можно диап
Ответ от Krab Bark[гуру]
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.
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.
Ответ от Andrey 212121[новичек]
используй операторы цикла, в крайнем случае сделай по колхозном прописав каждое число!!!!
используй операторы цикла, в крайнем случае сделай по колхозном прописав каждое число!!!!
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Паскаль 1)Вывести числа от 1 до 20 2) От 20 до 1