Напишите программу для вывода на экран последовательности ...

Question

Напишите программу для вывода на экран последовательности ...

Настя

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

Есть ответ

12.12.2022

338

Ответ

Answer 1 · 12.12.2022

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, Если есть вопросы, пишите.)