Question

Если не сложно, напишете пожалуйста программу на паскале, которая бы вычисляла разность первой и последней цифры в трехзначном числе

Answer 1

Program abc;
var a,b,ci: integer;
begin
writeln('Введите трехзначное число');
read(a);
b:=a mod 10;
a:= a div 10;
a:= a div 10;
if a>=b then c:=a-b else c:=b-a;
writeln(c);
end.