Предмет: Информатика,
автор: savara18082004
!!!!срочно!!!!30БАЛЛОВ!!!!!
Приложения:
![](https://files.topotvet.com/i/103/103a8e2572e7fc4fdac4a51396786f45.jpg)
Ответы
Автор ответа:
1
var a,b,c,d,f:integer;
begin
WriteLn('введите трехзначное число');
readln(a);
WriteLn('введите однозначное число');
readln(b);
c:=a mod 10;
d:=a div 10 mod 10;
f:=a div 100 mod 10;
if (b=c) or (b=d) or (b=f) then writeln ('да есть') else writeln ('таких нет')
end.
savara18082004:
надеюсь..т.к это нужно на сегодня и срочно
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: daha000302
Предмет: Математика,
автор: Хурсанд
Предмет: Математика,
автор: jafarovnadir
Предмет: Математика,
автор: 1234793