Даны три символа. верно ли, что произведение двух первых символов кратно коду третьего символа.

oksanadavidienozexft oksanadavidienozexft    1   04.07.2019 08:00    0

Ответы
Shummer Shummer  28.07.2020 01:51
Var
A,B,C:char;
Begin
WriteLn('Введи первый символ');
ReadLn(C);
WriteLn('Введи второй символ');
ReadLn(A);
WriteLn('Введи третий символ');
ReadLn(B);
if (Ord(A)*Ord(B)) mod Ord(C) = 0 then WriteLn('Верно')
else WriteLn('Не верно')
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика