В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История

Гарри Поттер на досуге занимается исследованием свойств чисел .Однажды старом заклинании он увидел число 5476528769476958

Показать ответ
Ответ:
DogyStyleee
DogyStyleee
16.04.2019 23:00
const
  d = 7;
 
var
  t: text;
  c: char;
  r: Integer;
 
begin
  assign(t, 'input.txt');
  reset(t);
  r := 0;
  while not eoln(t) do
    begin
      read(t, c);
      r := (r * 3 + ord(c) - ord('0')) mod d
    end;
  close(t);
  assign(t, 'output.txt');
  rewrite(t);
  if r = 0 then writeln(t, 'Да') else writeln(t, r);
  close(t)
end.
0,0(0 оценок)
Популярные вопросы: Другие предметы
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота