Question

Помогите пожалуйста сделать информатику

Answer 1

Var a,b,c:integer;begin readln(a); if (a > 999) or (a < 100) then begin  writeln('Это не трёхзначное число');  exit; end;  if (a mod 10 = a div 100) then begin  writeln('Первая цифра не должна совпадать с последней');  exit; end; b := (a mod 10)*100 + (a mod 100 - a mod 10) + (a div 100); writeln(b); if ( a >= b) then  c := a - b  else   c:= b - a;   writeln(c mod 100 div 10);end.