| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1059
| {A} Var N,I:integer; Begin Readln(N); If N=0 then Writeln(0) else begin Writeln('0'); Writeln('X'); Writeln('*'); For I:=1 to N-1 do begin Writeln(I); Writeln('+'); Writeln('X'); Writeln('*'); End; Writeln(N); Writeln('+'); End; End. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 768 |