Решаем задачи Абрамян на Паскале. Integer 14

Integer14. Дано трехзначное число. В нем зачеркнули первую справа цифру и приписали ее слева. Вывести полученное число.
Решение:

program Integer14;
var
  A, Res: Integer;
begin
  Write('Введите трёхзначное число: ');
  Readln(A);
  Res:=(A mod 10)*100+ (A div 10);
  //*
  Writeln('Число, полученное при перестановке цифр: ',Res);
end.

program Integer14;

var

A, Res: Integer;

begin

Write('Введите трёхзначное число: ');

Readln(A);

Res:=(A mod 10)*100+ (A div 10);

//*

Writeln('Число, полученное при перестановке цифр: ',Res);

end.

* (A mod 10) — Получаем единицы
(A div 10) — Получаем сотни и десятки

Другие задачи из раздела Integer можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Integer 14

Комментарии:

Добавить комментарий Отменить ответ