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.
<em><u>Язык PascalABC</u></em>
Ответ:
А где задание?
Объяснение:
Я не могу дать ответ без задания!!!
Блок-схема - в прилагаемом файле.