Ввести с клавиатуры два числа. являются ли числа кратными 3. if x%3 == 0

dimonbob2005 dimonbob2005    3   21.09.2019 08:20    0

Ответы
kuralova200 kuralova200  08.10.2020 06:45
Var a,b:Integer;
begin
Read(a,b);
if (a mod 3=0) and (b mod 3=0) then
WriteLn('Являются')
else
WriteLn('Не являются');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика