Question

СОСТАВЬТЕ ПРОГРАММУ ОПРЕДЕЛЯЮЩУЮ ЯВЛЯЕТСЯ ЛИ ДАННОЕ ЧИСЛО ДЕЛИТЕЛЕМ ЧИСЛА 3

Answer 1

Var a:integer; Begin Readln(a) ; If (3 mod a=0) then writeln ('Является') Else write('Не является') ; End.

Answer 2

var n:integer;
begin
readln(n);
if 3 mod n =0 then writeln('yes'); else writeln('no');
end.
mod значить деление с остатком, если 3 делится на N с остатком 0 то печатать Да иначе печатать Нет.