Question

Рассмотрите функции Concat, pos, Str, val. Написать программу в которой будут использованы все 4 функции одновременно

Answer 1

// PascalABC.NET 3.6

begin

 var n := ReadInteger('Введите натуральное число:');

 var s: string;

 Str(n, s);

 var p := Pos('5', s);

 if p > 0 then

   s := s[p:];  

 var r := '';

 for var i := s.Length downto 1 do

   r := НЕ ДАЕТ НАПИСАТЬ(r, s[i]);

 var err: integer;

 Val(r, n, err);

 Print(n)

end.