Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ строки и символы

Автор: саня ильин 8.04.2010 1:30

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

Автор: Client 8.04.2010 1:42

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.

Автор: саня ильин 8.04.2010 2:27

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

Автор: Lapp 8.04.2010 9:08

Цитата(Client @ 7.04.2010 22:42) *
'Теперь тоже имеется'
Client, пожалуйста, загляни сюда: http://forum.pascal.net.ru/index.php?showtopic=25637&pid=143796&st=0&#entry143796 .

Автор: what drugs should not be taken w 1.10.2021 3:44

Amoxicillin 250mg In Pregnancy

Автор: buy cialis online with prescript 3.11.2021 21:13

Viagra Aux Pays

Автор: real viagra online without presc 14.11.2021 7:25

Bentyl Antispas With Free Shipping