Question

Дано четырехзначное число напишите программу которая определяет равны ли его вторая и третья цифра? Например у числа 1223 - равны. А у 1234 нет…. Помогите пожалуйста срочно!!

Answer 1

var

 n,x:integer;

begin

 repeat

   write('n=');  readln(n);

 until (n<10000) and (n>=1000);

 if n div 100 mod 10 = n mod 100 div 10 then

   writeln('Равны')

     else

       writeln('Не равны');

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!