Определить делится ли нацело произведение чисел на 3
Answers & Comments
aven7play
Var a:longint; Begin readln(a); if a mod 3=0 then writeln('Yes') else writeln('No'); End.
0 votes Thanks 0
danulpopov
Var a, b: integer; Begin Writeln('Введите 2 числа'); Read(a,b); if (a*b mod 3 = 0) then Writeln('Произведение чисел ', a, ' и ', b, ' делится нацело на 3') else Writeln('Произведение чисел ', a, ' и ', b, ' нацело на 3 не делится'); end.
Answers & Comments
Begin
readln(a);
if a mod 3=0 then writeln('Yes') else writeln('No');
End.
a, b: integer;
Begin
Writeln('Введите 2 числа');
Read(a,b);
if (a*b mod 3 = 0) then Writeln('Произведение чисел ', a, ' и ', b, ' делится нацело на 3')
else Writeln('Произведение чисел ', a, ' и ', b, ' нацело на 3 не делится');
end.