Пусть X - трехзначное число Begin Var X: Integer; // Это наше число Var Y,Z, F, Result: Integer; Y := X div 100 // Это первое число слева Z := (X - (Y * 100)) div 10 // Это второе число F := X - (Y*100) - (Z*10) // Это третье число Result:= Y - F End.
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
Writeln(n div 100 - n mod 10)
end.
Begin
Var X: Integer; // Это наше число
Var Y,Z, F, Result: Integer;
Y := X div 100 // Это первое число слева
Z := (X - (Y * 100)) div 10 // Это второе число
F := X - (Y*100) - (Z*10) // Это третье число
Result:= Y - F
End.