Напишите программу для вывода на экран последовательности символов: abbcccdddd…zzzzzzzzzzzzzzzzzzzzzzzzzz напишите программу, которая выводит «да», если буква «а» встречается в тексте чаще, чем буква «о», и «нет» в обратном случае. поменяйте местами k первых и k последних символов строки. удвойте вхождение буквы в текст. например, если пользователь ввёл текст «мама мыла раму» и выбрал для удвоения букву «м», то после работы программы должно быть выведено на экран сообщение «ммамма ммыла рамму» проверьте написанный текст на правильность написания сочетаний «жи», «ши». если слова написаны с ошибкой – исправьте их. удалите в каждом слове предложения первую и последнюю букву.

1)program z1; var st: string; i,j,k: integer; begink: =ord('a'); for i: =1 to 26 do beginfor j: =1 to i do beginwrite(chr(k)); end; k: =k+1; end; end.

2)program z2; var st: string; i,c,c1: integer; beginwriteln('введите строку'); readln(st); for i: =1 to length(st) do beginif st[i]='а' then inc(c); if st[i]='о' then inc(c1); end; if c> c1 then writeln('да') else writeln('нет'); end.

3)program z3; var st,st1,st2,st3: string; k,n: integer; beginwriteln('введите строку'); readln(st); writeln('введите k'); readln(k); n: =length(st); st1: =copy(st,1,k); st2: =copy(st,n-k+1,k); st3: =copy(st,k+1,n-2*k); st: =st2+st3+st1; writeln(st); end.

4)program z4; var st,st1,st2: string; n,i: integer; beginwriteln('введите строку'); readln(st); writeln('введите букву для удвоения'); readln(st1); n: =length(st); for i: =1 to n do begin; if st[i]=st1 then st2: =st2+st[i]+st[i] else st2: =st2+st[i]; end; writeln(st2); end.

5)program z5; var st,st1: string; n,i: integer; beginwriteln('введите строку'); readln(st); n: =length(st); for i: =1 to n do beginif (st[i]='ж') or (st[i]='ш') then st1: =st1+st[i]+'и' else st1: =st1+st[i]; end; writeln(st1); end.

6)program z6; var st,st1: string; n,i: integer; beginwriteln('ââåäèòå ñòðîêó'); readln(st); n: =length(st); st: =' '+st+' '; for i: =1 to n doif st[i]=' ' then begin delete(st,i+1,1); delete(st,i-1,1); end; writeln(st); end.

(все программы проверени и откомпелированы на pascal. net, если есть вопросы, пишите.)

язык си(откомпилирован и проверен был в dev-c++)

#include < stdio.h> #include < stdlib.h> #include < conio.h> int main(){      int a, b, c;       printf("\n vvedite 3 chisla :   ");       scanf("%d" "%d" "%d", & a, & b, & c);             if (a > b & & a > c) printf("\n a = %d", a);       if (b > c & & b > a) printf("\n b = %d", b);       if (c > b & & c > a) printf("\n c = %d", c);       if (a == b & & a > c) printf("\n a = %d b = %d", a, b);       if (a == c & & a > b) printf("\n a = %d c = %d", a, c);       if (b == c & & b > c) printf("\n b = %d c = %d", b, c);       if (a == b & & a == c) printf("\n a = %d b = %d c = %d", a, b, c);   printf("\n\n press ");   getch( );   return 0; }

паскаль (откомпилирован и проверен был в pascal abc)

program z1; uses crt; var a, b , c: integer; beginwrite('vvedite 3 chisla:   '); readln(a, b, c); if (a > b) and (a > c) then writeln(' a = ', a); if (b > c) and (b > a) then writeln(' b = ', b); if (c > a) and (c > b) then writeln(' c = ', c); if (a = b) and (a > c) then writeln(' a = ', a, ' b = ', b); if (a = c) and (a > b) then writeln(' a = ', a, ' c = ', c); if (b = c) and (b > c) then writeln(' b = ', c, ' c = ', c); if (a = b) and (a = c) then writeln(' a = ', a, ' b = ', b, ' c = ', c); end.

1. внимательно читаете . вникаете в смысл. выясняете, все ли термины  известны и понятны. детально представляете себе ситуацию или как идет прощесс, описанный в .

2. записываете данные.

3. записываете, что нужно найти.

4. вспоминаете все возможные соотношения и формулы, связывающие параметры, данные в , с тем параметром, который нужно найти.

5. решаете в общем виде - это значит выводите формулу, в которой известны все величины, кроме искогомого. подставляете известные значения в формулу и вычисляете. можно делать вычисления и постадийно - это уж как вам удобно.

6. проверяете размерности. в конечную формулу вместо числовых значений подставляются размерности соответствующих величин. если конечная размерность не соответствует размерности искомого, значит нужно искать ошибку. если соответсвует, то это еще не полная гарантия, что ответ правильный.

7. проверка. решаем обратную : считаем, что какое-либо из первоначальных данных неизвестно, и на основании найденного ответа вычисляем этот "условно неизвестный параметр". если результат вычислений совпадает в данными, значит решена верно. если нет - ищите ошибку.