ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1243. Развод семи гномов

AC program here
Послано Ilia S. Chm (Spb SU) 4 мар 2003 01:05
var a: array [1..239] of byte;
str: string;
i,n: longint;

begin
 readln(str);
 n:=length(str);
 for i:=1 to n do a[i]:=ord(str[i])-ord('0');
 if n=1 then writeln(a[1] mod 7 ) else begin
  i:=1;
  while i<=n-1 do begin
   a[i+1]:=(a[i]*10+a[i+1]) mod 7;
   inc(i);
  end;
  writeln(a[n]);
 end;
end.