| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1082
| {A} Var I,N: Longint; Begin Readln(N); For I:=1 to N do begin Write(I); IF I<>N then Write(' '); End; end. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 903 |