Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.