строки и символы Опции

[саня ильин]

Запросите у пользователя строку и символ и выведите на экран сообщение, имеется среди символов строки заданный пользователем символ.Если-нет, то добавьте в его строку этот символ по выбору: в начало или в конец строки.

[Client]

uses crt;
var
   s:string;
   ch:char;
begin
   clrscr;
   readln(s);
   readln(ch);
   if pos(ch,s)>0 then writeln('Имеется')
   else begin
      s:=s+ch;
      writeln(s);
      writeln('Теперь тоже имеется')
   end;
   readkey
end.

Сообщение отредактировано: Client - 7.04.2010 21:42

[саня ильин]

спасибо тебе,Client. Побольше бы встречались в жизни такие люди как ты

[Lapp]

'Теперь тоже имеется'

Client, пожалуйста, загляни сюда: строки .