Shaanop
7 год назад
ПОМОГИТЕ! Пожалуйста! Дам 40 баллов! Есть ДОБРЫЕ ЛЮДИ, ЗАРАНЕЕ СПАСИБО :)))
Составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число делится без остатка на 3.
ОТВЕТЫ
Emilevich
Jul 15, 2019
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.
145
