program raf105;
var abc,a,b,c:integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
c:= abc mod 10;
b:= (a+c) mod 10;
abc:= a*100 + b*10 + c;
writeln('Вывод: ',abc);
end.
Язык PascalABC
program raf105;
var abc,a,b,c:integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
c:= abc mod 10;
b:= (a+c) mod 10;
abc:= a*100 + b*10 + c;
writeln('Вывод: ',abc);
end.
Язык PascalABC