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

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

Задать свой вопрос
1 ответ

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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт