Удалить из строки...

Тема в разделе "Информатика", создана пользователем Elemental, 6 мар 2010.

  1. Elemental

    Elemental New Member

    Удалить из строки вторую букву а если ее нт вывести соответствующее сообщение
     
    Elemental, 6 мар 2010
    #1
  2. hlam_lom

    hlam_lom New Member

    Var a:string; 
    begin 
    readln(a); 
    if length(a)=1 then a:=a+' ';
    if a[2]<>' ' then delete(a,2,1) else writeln('Такого нет');
    readln;
    end.
     
    hlam_lom, 6 мар 2010
    #2

Поделиться этой страницей

Наша группа