Выяснить, делится ли на 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
