| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1243
| Var Ch: Char; R: LongInt; Begin R:=0; Read(Ch); While not (Ch=#13) do begin R:=(R*10+(Ord(Ch)-48)) mod 7; Read(Ch); End; Writeln(R); End. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 899 |