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

[саня ильин]

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

[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 - 8.04.2010 1:42

[саня ильин]

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

[Lapp]

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

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

[what drugs should not be taken w]

Amoxicillin 250mg In Pregnancy

[buy cialis online with prescript]

Viagra Aux Pays

[real viagra online without presc]

Bentyl Antispas With Free Shipping