Даны три символа. Верно ли, что произведение двух первых символов кратно коду третьего символа.
Даны три символа. Верно ли, что произведение двух первых символов кратно коду третьего символа.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы