Пример 1. С клавиатуры введите двузначное число а. Вычислите и выведите на экран значение выражения , где х - последняя цифра данного числа.
Решение:
ProgramP1;
Var a,x:Integer; r:Real;
Begin
Write('Введитечисло='); Readln (a);
x:=a mod 10;
r:=2/abs(x-2*x);
Writeln('Ответ:',r);
End.