СРОЧНО, ДАМ 20 БАЛЛОВ Написать программу. 2. Пользователь вводит трехзначное число....

Question

СРОЧНО, ДАМ 20 БАЛЛОВ Написать программу. 2. Пользователь вводит трехзначное число. Программа вычеркивает первую слева цифру и дважды дописывает справа эту цифру. Выводит на экран результат.

Answer 1

Решение:

var

 n,h:integer;

begin

 readln(n);

1.   h :=n div 100;

  n -= h*100;

  n*= 100;

  n += h*10;

  n += h;

  write(n);

end.