Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

С клавиатуры вводится трехзначное число подсчитать разность его крайних цифр.

Ответ оставил Гость

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 bwriteln (Разность крайних цифр равна ,r);
end.