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

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