Предмет: Информатика, автор: savara18082004

!!!!срочно!!!!30БАЛЛОВ!!!!!​

Приложения:

Ответы

Автор ответа: mrPASCAL
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: надеюсь..т.к это нужно на сегодня и срочно
mrPASCAL: Не надо волноваться
mrPASCAL: И если можешь оценить ответ
savara18082004: спасибо большое
mrPASCAL: Ага
mrPASCAL: Обращайся
Похожие вопросы