Составьте программу, проверяющую, верно ли утверждение, что введеное вами целое число делится без остатка на 3.
varN:integer;beginread(N);if N mod 3=0 thenwriteln('верно')else writeln('не верно');end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
var
N:integer;
begin
read(N);
if N mod 3=0 then
writeln('верно')
else writeln('не верно');
end.