давно
Старший Модератор
31795
6196
01.11.2019, 12:47
общий
это ответ
Здравствуйте, rail!
Более правильный вариант:
[code lang=pascal]var
s:string;
begin
write('enter string:');
readln(s);
while(pos('!,',s)>0)do delete(s,pos('!,',s),1);
writeln('result:',s);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.