Ответы на вопросы
0 голосов
746 просмотров
Составьте или нарисуйте пожалуйста. СРОЧНО нужно
от | 746 просмотров

1 Ответ

0 голосов
Лучший ответ
1
2
3
4
5
6
7
8
9
Var n,m:longint;
Begin
    write('Введите 4-ое число: ');readln(n);
    write('Введите цифру: ');readln(m);
    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 writeln('Yes')
      else writeln('No');
    readln;
End.
от
Добро пожаловать на сайт Вопросов.Нет, где вы можете задавать вопросы и получать ответы от других участников сообщества.
136 вопросов
166 ответов
12 комментариев
489 пользователей