| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1289
| Var A,I: LongInt; Begin Readln(A); A:=A div 2; If A=0 then Writeln('0'); If A=1 then Writeln('10'); If A<2 then Halt; For I:=1 to A-1 do write(1); Write(0); For I:=1 to A-2 do write(8); Writeln(90); End. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 837 |