НАПИШИТЕ ПРОГРАММУ ПАСКАЛЬ!!! Дано двузначное число N и однозначное M. Проверить,если

НАПИШИТЕ Программку ПАСКАЛЬ!!! Дано двузначное число N и однозначное M. Проверить,если ли посреди цифр числа N число M.!!!!!

Задать свой вопрос
1 ответ
Var
   N:integer;
   M:byte;
Begin
Write('N = ');ReadLn(N);
Write('M = ');ReadLn(M);
if (N div 10 = M)or(N mod 10 = M) then WriteLn('Цифра ',M,' есть в числе ',N)
else WriteLn('В числе ',N,' нет числа ',M)
End.
Олег Дремучкин
Спасибо!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт