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

Question

Информатика

Марианка

24 января, 07:10

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

+4

Ответы (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.