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

Question

Информатика

Димуша

29 мая, 14:36

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

+2

Ответы (1)

Знаете ответ?

Вадим · 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.