ввести с клавиатуры двузначное число и цифру. определить, есть ли данная цифра в этом числе

Ответы

Ответ дал: SurRealist
0

var a, b: integer;

begin

readln (a, b);

if (a mod 10 = b) or (a div 10 = b) then writeln ('yes') 

else writeln ('no');

end.

Похожие вопросы