Из заданной строки получить новую строку, заменив в ней все группы букв «abcd» на «abc».новую строку переписать в файл.pascal/

143

317

Посмотреть ответы 2

Ответы на вопрос:

чебурек2283

Информатика

4,8(18 оценок)

12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 #include < string.h> #include < iostream.h> int main() { char st[100], sl[100],s[20][20]={'\0'}; int k=0, i,t=0,j; cin> > st; cout< < endl; t=strlen(st); i=-1; do {++i; if(st[i]=='a' & & st[i+1]=='b' & & st[i+2]=='c' & & st[i+3]=='d') { for( j=i+3; j< t-1; j++) st[j]=st[j+1]; t--; } }while(st[i]! ='\0'); for( j=0; j< t; j++) cout< < st[j]; return 1; }

karinemirova2

Информатика

4,4(29 оценок)

Ответ в комментарии,для лучшей читаемости кода. program chicla; var a,b,c,d,f,sum: integer; sr: real; begin writeln('ââåäèòå ïåðâîå ÷èñëî'); readln(a) ; writeln('ââåäèòå âòîðîå ÷èñëî'); readln(b); writeln('ââåäèòå òðåòüå ÷èñëî'); readln(c); writeln('ââåäèòå ÷åòâåðòîå ÷èñëî'); readln(d); f: =a+b; if f> 20 then begin f: =f-10; writeln(f); end else begin f: =f+10; writeln(f) end; if b> =0 then begin a: =a-1; b: =b-1; c: =c-1; d: =d-1; writeln('1 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ',a); writeln('2 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ' ,b); writeln('3 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ' ,c); writeln('4 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ' ,d); end else begin sr: =(a+b+c+d)/4; writeln('ñðåäíåå àðèôìåòè÷åñêîå = ' ,sr); end; end.