Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите написать программу проверяющую верное утверждение что введенное вами число делится на 3 без остатка.

Ответ оставил Гость

Program L;
uses crt;
var x:integer;
begin
write(   x=); readln(x);
if (x mod 3)=0 then   writeln(x=,x, делется нацело на 3)
                            else  writeln(x=,x, не делется нацело на 3)
end.