• 
  • 11 April 2013
  Английский язык
  • Автор: Paxan3000

  

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

• 
  • 11 April 2013
  • Ответ оставил:

  1)Program Z1;
  Var st:string;
  i,j,k:integer;
  Begin
  k:=ord('A');
  For i:=1 to 26 do begin
  For j:=1 to i do begin
  write(chr(k));
  end;
  k:=k+1;
  end;
  end.

  
  2)Program Z2;
  Var st:string;
  i,c,c1:integer;
  Begin
  Writeln('Введите строку');
  Readln(st);
  For i:=1 to length(st) do begin
  if 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;
  Begin
  Writeln('Введите строку');
  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;
  Begin
  Writeln('Введите строку');
  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;
  Begin
  Writeln('Введите строку');
  Readln(st);
  n:=length(st);
  For i:=1 to n do begin
  if (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;
  Begin
  Writeln('Ââåäèòå ñòðîêó');
  Readln(st);
  n:=length(st);
  st:=' '+st+' ';
  For i:=1 to n do
  if st[i]=' ' then begin delete(st,i+1,1); delete(st,i-1,1);
  end;
  writeln(st);
  end.

  (Все программы проверени и откомпелированы на Pascal. NET, Если есть вопросы, пишите.)

   

   

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
  На сегодняшний день (30.09.2025) наш сайт содержит 244794 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы