Содержание
Что ты хочешь узнать?
Ответ
Проверено экспертом
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(‘кол-во символов четное’)
Что ты хочешь узнать?
Ответ
Проверено экспертом
// PascalABC.NET
// Версия 3.3.5 сборка 1662 (29.04.2018)
А
Println(‘Кол-во символов -‘,ReadString(‘Слово->’).Length)
Кол-во символов — 9
Б
var s:=ReadString(‘Слово-> ‘).ToLower;
В
Г
Println(ReadString(‘Слово->’).Length mod 2=0?’Четно’:’Нечетно’);
Ответ оставил Гуру
var a:string; k: integer;
var a:string; k:integer;
write (‘Введите слово:’); read(a);
if a[1]=a[k] then writeln(‘Да’)
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.