Дано трёхзначное число. Определить,стоит ли в середине цифра 3. Нужно написать программу...

Question

Дано трёхзначное число. Определить,стоит ли в середине цифра 3. Нужно написать программу в Pascal

Answer 1

var a,b:integer;

begin

 readln(a);

 b:=a div 10;

 b:=b mod 10;

 if (b=3) then  write('Стоит 3') // Если b=3, то выводит 'Стоит 3'

 else write('Не стоит 3') // Если b не равно 3, то выводит 'Не  

                                                                                           стоит 3'

end.