Удалить из строки вторую букву а если ее нт вывести соответствующее сообщение

Question

39

в избранное ссылка

Знаете ответ?

johnny-alpine · Accepted Answer

78

johnny-alpine

19 февраля 2023

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.

комментировать

в избранное ссылка отблагодарить