В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия

Склавиатуры вводится слово. составить программу, которая: а) определяет количество символов в нем; б) определяет, ли первая и последняя буквы слова; в) выводит на экран его первый, третий и последний символ; г) определяет, четно или нечетно количество символов в нем.
pascal abc

Показать ответ
Ответ:
tamilyamehtiev
tamilyamehtiev
10.10.2020 08:17

var s: string;

begin

readln(s);

writeln('кол-во символов: ',length(s));

if s[1]=s[length(s)] then

writeln('первая и последняя буквы слова совпадают')

else writeln('первая и последняя буквы слова не совпадают');

writeln('первый, третий и последний символы: ',s[1],' ',s[3],' ',s[length(s)]);

if length(s) mod 2=0 then write('кол-во символов четное')

else write('кол-во символов нечетное');

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота