Задание:
Нужна программа которая должна читать натуральное число A , которое может содержать до 60 цифр затем находит и выводит на экран остаток от деления A на 7
Решение:
Program Z; var A: longint; begin readln (A); writeln (A mod 7); end.
Знаете другой ответ?