ПОМОГИТЕ! Пожалуйста! Дам 40 баллов! Есть ДОБРЫЕ ЛЮДИ, ЗАРАНЕЕ СПАСИБО :)))Составьте...

Question

ПОМОГИТЕ! Пожалуйста! Дам 40 баллов! Есть ДОБРЫЕ ЛЮДИ, ЗАРАНЕЕ СПАСИБО :)))
Составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число делится без остатка на 3.

Answer 1

program Checker; uses crt; var Digit:integer; begin   write('Enter digit:');   readln(Digit);   if Digit mod 3=0 then writeln('This digit is divisible by 3!')   else writeln('This digit is not divisible by 3!');   readln; end.