С клавиатуры вводится трехзначное число подсчитать разность его крайних цифр.
Answers & Comments
Pelageya
Program raznost; var a,b,c,r: integer; begin writeln ('Введите трехзначное число'); readln (a); b:=a div 100; c:=a mod 10; if b>c then r:=b-c else if b<c then r:=c-b; writeln ('Разность крайних цифр равна ',r); end.
Answers & Comments
var a,b,c,r: integer;
begin
writeln ('Введите трехзначное число');
readln (a);
b:=a div 100;
c:=a mod 10;
if b>c then r:=b-c
else
if b<c then r:=c-b;
writeln ('Разность крайних цифр равна ',r);
end.