Удалить из строки вторую букву а если ее нт вывести соответствующее сообщение
Удалить из строки вторую букву а если ее нт вывести соответствующее сообщение
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы