Question

Люди добрые, помогите пожалуйста!
Дано натуральное трёхзначное число. Напишите программу, которая определяет: (фото)

Answer 1

var

 s:string[3];

 flag1,flag2:boolean;

begin

 flag1:=false;

 flag2:=false;

 s:='';

 readln(s);

 if (s[1]=s[3]) then

   begin

     flag2:=true;

     flag1:=true;

   end

     else

       if (s[1]=s[2]) or (s[3]=s[2]) then

         flag1:=true;

 if flag1 then

   writeln('Да')

     else writeln('Нет');  

 if flag2 then

   writeln('Перевёртыш')

     else writeln('Нет');

end.