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

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.

---

Comments

Вы увидите в тексте программы НЕ ДАЕТ НАПИСАТЬ. Замените эти слова на приведенное в скрине имя Соnсаt

---

Это странный местный глюк - в поле ответа писать такое слово ЗАПРЕЩЕНО

---

Программа ищет в исходном числе цифру 5. Если она есть, все что слева от нее отбрасывается. Далее цифры числа выводятся в обратном порядке.