tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Удалить из строки вторую
Удалить из строки вторую букву а если ее нт вывести соответствующее сообщение
Ḱặрặṃềӆьҟӑ
2 28.05.2019 11:10
0
Ответы
79521312181
25.06.2020 21:52
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alexseyART
05.11.2020 14:03
Перечислите через запятую все системы счисления, в которых выполняется неравенство : 17х+24х=45х...
Кличяня
05.11.2020 14:03
Текст составлен с использованием алфавита мощностью 512 символов и содержит 400 символов. Каков информационный объем текста в байтах?...
Зайчик3468
05.11.2020 14:02
Сложно ли работать оператором ввода данных? ...
bumnov23
05.11.2020 14:02
алфавит некоторого племени состоит из 19 букв какое количество информации несет одна буква этого алфавита...
asyamilos
15.06.2020 15:02
написать рабочее меню для этой программы var a:array[1..50] of byte; n,p, i,k,m,j,x,y,z: integer; begin writeln( Введите количество элементов ); readln(p); n:=4; repeat for...
katerinkakotoysmyf
15.06.2020 21:53
ответьте на тест! 1. Электронная таблица — это:устройство ввода графической информации в ПЭВМкомпьютерный эквивалент обычной таблицы, в клетках которой записаны данные различных...
HelpPlzzzzz
15.06.2020 15:18
1.Первые ЭВМ были созданы в: Выберите один ответ: 1. 1966 году 2. 1986 году 3. 1941 году 2. При выключении компьютера вся информация стирается: Выберите один ответ: 1. Не...
abramchuk2
15.06.2020 15:21
Люди с таблицей Как рассчитать премию и подоходный налог?...
аричунка
15.06.2020 15:24
В корзине лежат шары. Сообщение о том, что из корзины достали один шар, несет 2 бита информации. Сколько всего шаров?...
учеба6358
17.06.2021 10:30
Здравствуйте, учу язык python, в учебнике есть задание, но я не уверена что решила его правильно, при вводе elif выскакивает ошибка, поэтому написала следующим образом, если...
Популярные вопросы
Назвать наименьшую единица систематики , которую присваивают каждому живому...
1
Діалог 6 реплік на тему в осінньому лісі...
2
Почему идей мартина лютера называют протестантизмом?...
2
2умножить на 8 в квадрате минус 24 умножить на 5 плюс 27 равно...
3
Новое экспериментальное ракетное топливо представляет собой смесь тонкоизмельченного...
3
Втетраде 48 страниц 7/12 всех страниц исписаны.сколько в тетради исписаны...
1
Для пяти букв алфавита заданы их двоичные коды (для некоторых букв - из...
1
При взаємодії суміші магнію та магній оксиду масою 16 г із водою, взятою...
2
Служба в армии по призыву и служба по контракту, общее, отличия...
3
Вычислите 18*4+81: 27 100+25*4 108-31*2, 15*12: 3 сложите значение всех...
3
begin
readln(a);
if length(a)=1 then a:=a+' ';
if a[2]<>' ' then delete(a,2,1) else writeln('Такого нет');
readln;
end.