citni

program suma; var y,z,x,i : longint; begin Readln(x); z := 1; for i:= 1 to x do begin y := y*10+1; z := z + y; end; Writeln(z); end.

Sveiki. Taigi man prireikė pagalbos su pascaliu. Niekaip neišmąstau, kaip padaryti. Užduotis:
Tarp skaitmenų, užrašytų didėjimo tvarka : 1,2,3,4,5,6,7,8,9 reikia įterpti sudėties ir atimties ženklus taip, kad reiškinio reikšmė būtų lygi skaičiui m (|m|<=123456789).
Skaičius m įrašytas faile skaicius.in. Jūsų programa turi išvesti rezultatą (reiškinį) į failą skaicius.out.
Pvz.:
 

skaicius.in 120 -15
 

skaicius.out 123+4-5+6-7+8-9 1+2+3+4+5-6-7-8-9
 
Dėkui :)