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

Question

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

Answer 1

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.