Консультация № 196910
31.10.2019, 09:14
0.00 руб.
0 2 2
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Программа должна позволять ввести текст, и потом удалять в нем все восклицательные знаки, расположенные непосредственно перед запятой, и выводить измененный текст на экран.
pascal


Приложение:
pascal

Обсуждение

давно
Профессор
401888
1232
31.10.2019, 09:27
общий
это ответ
Здравствуйте, rail!
[code lang=pascal]var s:string;
i:integer;
begin
writeln('Введите текст содержащий восклицательные знаки,'+#13+#10+
'в том числе расположенные непосредственно перед запятой');
readln(s);
for i:=length(s)-1 downto 1 do
if(s[i]='!')and(s[i+1]=',') then delete(s,i,1);
writeln(s);
end.[/code]
давно
Старший Модератор
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]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа