Выяснить, делится ли на 7 натуральное число, состоящее не более чем из 60 цифр - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Петя Васечкин хочет выяснить, делится ли на 7 натуральное число, состоящее не более чем из 60 цифр. Требуется написать программу, которая выполняет желание Пети и находит остаток от деления введённого числа на 7. Составьте программу,которая 1)читает натуральное число а,которое может содержать до 60 цифр 2)находит и выводит на экран остаток от деления а на 7 Примеры: Исходное число 14 Остаток 0 Исходное число 101 Остаток 3 Спасибо!

Решение задачи: «Выяснить, делится ли на 7 натуральное число, состоящее не более чем из 60 цифр»

textual
Листинг программы
var
  s:string;
  c:byte;
begin
  write('S=');readln(s);
  while length(s)>0 do begin
    c:=(c*10+ord(s[1])-48) mod 7;
    delete(s,1,1);
  end;
  writeln('остаток:',c);
end.

Оцени полезность:

14   голосов , оценка 4.071 из 5
Похожие ответы