Удалить из строки вторую букву а если ее нт вывести соответствующее сообщение
10-11 класс
|
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.
Другие вопросы из категории
a) Mkdir б) Path в) Subst г) Tree очень срочно надо
2. Что такое инсталлятор?
3. Как удалить ненужную программу с компьютера?
4. Виды ПО по способу доступа и использования.
5. Какие программы называют лицензионными?
6. Какие программы называют свободно распространяемыми?
7.В чем состоит различие между лицензионными, условно бесплатными и бесплатными программами?
8. Как можно зафиксировать свое авторское право на программный продукт?
9. Почему компьютерное пиратство наносит ущерб обществу?
Читайте также
затем поменять местами символы A и Y, то полученная последовательность и будет паролем. Определите пароль
Element=record
Info:integer;
Next:AdrCel;
End;
Составить процедуру, которая удаляет из списка второй элемент, если такой есть.
ХЭЛП МИ