Какие арифметические действия нужно поставить чтобы получилось один 1 2 3 4 5=1

1+2-3-4+5=1 - вот это правельное !

 

 

((1+2)*3-4) \ 5 = 0

можно скобки использовать?

Program sumator; {на самом деле, эта программа способна вычислять сумму цифр любого числа, а не только 4-х значного}  uses crt;   var c: integer;   ed,des,sot,tis,sum: real;   begin  clrscr;   repeat  writeln ('введите число');   readln (c);   ed: =c div 10;   ed: =c - ed*10;   des: =c div 100;   des: =(c - des*100 - ed)/10;   sot: =c div 1000;   sot: =(c-sot*1000 - (des*10+ed))/100;   tis: =(c-(sot*100+des*10+ed))/1000;   sum: =ed+des+sot+tis;   writeln ('сумма цифр = ',sum: 2: 0);   until c=0;   end.

// pascalabc.net 3.2, сборка 1356 от 04.12.2016 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('> ');   var p: =pos('',s);   if p> 0 then writeln(copy(s,1,p-1)) end. пример > это строка это такая // pascalabc.net 3.2, сборка 1356 от 04.12.2016 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('> ');   writeln(s.replace('','.').replace(' ','.')) end. пример > это тестовая строка, это.такая..тестовая.строка,.надуманная.