Задание №2Дано двузначное число. Определить: а) входит ли в негоцифра 3; б) входит ли в него цифра а. Цифру a вводить с клавиатуры

pascal

a)

var x: integer;

begin

Write('Введите двузначное число: '); ReadLn(x);

if (x div 10 = 3) or (x mod 10 = 3) then

WriteLn('3 входит') else WriteLn('3 не входит');

end.

б)

var x, a: integer;

begin

Write('Введите двузначное число: '); ReadLn(x);

Write('Введите число a: '); ReadLn(a);

if (x div 10 = a) or (x mod 10 = a) then

WriteLn(a, ' входит') else WriteLn(a, ' не входит');

end.