Question

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

Answer 1

var
N:integer;
begin
read(N);
if N mod 3=0 then
writeln('верно')
else writeln('не верно');
end.