Дан текст. подсчитать, сколько раз в тексте встречается симьол "+" и сколько раз-симбол "*". удалить эти символы, сдвинув текст. текст отпечатать.

Var   s: string;   i, n1, n2: integer; begin   writeln('введите текст');   readln(s);   n1 : = 0;   n2 : = 0;   for i : = 1 to length(s) do       case s[i] of           '+': n1 : = n1 + 1;           '*': n2 : = n2 + 1;       else write( s[i])       end;   writeln;   writeln('+ удалено ', n1, ', * удалено ', n2) end. тестовое решение: введите текст y: =35.45*x+2*y/(z-4); y: =35.45x2y/(z-4); + удалено 1, * удалено 2

{в данной последовательности к числу сначала 2 раза  прибавляется 3, после один раз вычитается 3. данная программа "ест" много памяти, но с ходу я ничего лучше не могу придумать} //pascal abc.net v3.0 сборка 1111 var   i,k: integer;   ar: array[1..2100] of integer; begin ar[1]: =3; ar[2]: =6; ar[3]: =9; ar[4]: =6; i: =4; while i< 2015 do   begin;   inc(i);   ar[i]: =ar[i-1]+3;   inc(i);   ar[i]: =ar[i-1]+3;   inc(i);   ar[i]: =ar[i-1]-3;   end; write(ar[2015]); end.ответ: 2019

Еще в глубокой древности некоторые военачальники, следуя обычаю, не позволяли своим подчиненным казнить пленных, приказывали щадить женщин и детей, запрещали отравлять колодцы. Эти обычаи со временем оформились в нормы обычного права, которыми руководствовались противоборствующие стороны. В ряде случаев воюющие заключали письменные соглашения о соблюдении правил гуманного обращения с противником. Однако вплоть до второй половины XIX века такие соглашения не носили всеобщего характера и, как правило, действовали лишь во время одного сражения или одной войны.

Объяснение:

ВОЗМОЖНО ЭТО НЕ ПРАВИЛЬНО!!!!!!!!!!!!!!!!!!