Используя все цифры от 1 до 9 по одному разу в различных комбинациях и операции сложения...

Question

Используя все цифры от 1 до 9 по одному разу в различных комбинациях и операции сложения и вычитания,получить в сумме 100.
Паскаль.

Answer 1

Var A : Integer;
BeginA:= 9+9;A:= A+8+8;A:= A+7+7;A:= A+6+6;A:= A+5+5;A:= A+4+4;A:= A+3+3;A:= A+2+2;A:= A+1+1;A:= A+9-1;A:= A+8-6;Writeln(A);End.

Comments

Пробелы проставь только

---

после " ; "

---

Var A : Integer;
BeginA:= 9+9;A:= A+8+8;A:= A+7+7;A:= A+6+6;A:= A+5+5;A:= A+4+4;A:= A+3+3;A:= A+2+2;A:= A+1+1;A:= A+9-1;A:= A+8-6;Writeln(A);End.