Пожалуйста помогите решить задачу через delete в программе Pascal ABC. Заранее Спасибо!

Question

Пожалуйста помогите решить задачу через delete в программе Pascal ABC. Заранее Спасибо!

---

Comments

а можно все условие увидеть? а то мне кажется, что не всегда так, как вы справшиваете

---

Ничего не понимаю, причем тут delete? что такое a? что нужно сделать то?

---

aaa блин, понятно, вывести символ строки с порядковым номером суммы двух чисел, ппц

---

begin var a := 2; var b := 4; var s := 'program'; Delete(s, 1, a + b - 1); Delete(s, 2, 1); Print(s)end.

---

Нет

---

Не так

---

У меня вывелось а

---

А должно 2+4=a

---

Вместо Print(s) напишите Print($'{a} + {b} = {s}')

---

beginvar a := 2;var b := 4;var s := 'program';Delete(s, 1, a + b - 1);Delete(s, 2, s.Length-1);Print($'{a} + {b} = {s}')end.

Answer 1

var a,b,i:longint;

s:string;

begin

readln(a);

readln(b);

read(s);

delete(s,1,a+b-1);

delete(s,2,length(s)-1);

write(a,'+',b,'=',s)

end.