ввести с клавиатуры двузначное число и цифру. определить, есть ли данная цифра в этом числе
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
