Определить входит ли цифра m в четырехзначное число n(написать )

259

420

Посмотреть ответы 2

Ответы на вопрос:

mushicz

Информатика

4,6(47 оценок)

Program prim; uses crt; var m,n: integer; begin writeln('введите цифру m'); readln(m); writeln('введите четырёхзначное число n'); readln(n); if (n mod 10=m) or (n div 10 mod 10=m) or (n div 100 mod 10=m) or (n div 1000=m) then write ('цифра ',m,' входит в число ',n) else write ('цифра ',m,' не входит в число ',n); end.