Втрехзначном натуральном числе заменить кол-во десятков на последнюю цифру в сумме сотен и единиц.(решение в паскаль)

valereiagorohov1 valereiagorohov1    1   09.05.2019 18:46    0

Ответы
NonaANDnana NonaANDnana  09.06.2020 18:45

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика