Выяснить, делится ли на 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.