Получить строку, содержащую преобразованный текст

@ANAKIN · Регистрация: 02.06.2011

Author24 — интернет-сервис помощи студентам

1)Ввести образец текста. Получить строку, содержащую преобразованный текст в котором удалены все "*" а большие "Я" заменены на "-я-".
2)Проверить не является ли строка полиндромом.
3)Удалить лишние пробелы и найти число слов в строке.

@Mr.Y · 05.06.2011, 10:54

Pascal

Uses
 crt;
Const
 dividers = [' ', ',', ':', ';', '!', '?', '.', '-'];
Var
 a:string;
 i:integer;
 found:boolean;
Begin
 clrscr;
 readln(a);
 For i:=length(a) downto 1 do //Ïðåîáðàçîâûâàåì ñòðîêó, óäàëÿÿ âñå ðàçäåëèòåëè è ïðèâîäÿ êàæäóþ áóêâó â íèæíèé ðåãèñòð
  If a[i] in dividers then delete(a,i,1)
                      else a[i]:=lowcase(a[i]);
 found:=true;
 For i:=1 to length(a) div 2 do
  If a[i] <> a[length(a)-i+1] then Begin
                                    found:=false;
                                    break;
                                   End;
 if found then writeln('ßâëÿåòñÿ')
          else writeln('Íå ÿâëÿåòñÿ');
 readln;
End.

@Ev[G]eN · 05.06.2011, 14:55

Сообщение от ANAKIN

1)Ввести образец текста. Получить строку, содержащую преобразованный текст в котором удалены все "*" а большие "Я" заменены на "-я-".

Pascal

var
 st: string;
 i: byte;
begin
 readln(st);
  while pos('*', st) <> 0 do
   delete(st, pos('*', st), 1);
  for i:=1 to length(st) do
   if st[i] = 'Я' then st[i]:='я';
 writeln(st);
end.

@ANAKIN 4 / 4 / 0 Регистрация: 02.06.2011 Сообщений: 63
		1
	Получить строку, содержащую преобразованный текст 05.06.2011, 09:19. Показов 1272. Ответов 2 Метки нет (Все метки) 1)Ввести образец текста. Получить строку, содержащую преобразованный текст в котором удалены все "*" а большие "Я" заменены на "-я-". 2)Проверить не является ли строка полиндромом. 3)Удалить лишние пробелы и найти число слов в строке. 0

	05.06.2011, 14:55

Опции темы

Получить строку, содержащую преобразованный текст

Решение