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

Question

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

Answer 1

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.