С клавиатуры вводят слово составить программу которая

Что ты хочешь узнать?

Ответ

Проверено экспертом

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(‘Да’)

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.

Читайте также  Разветвитель юсб своими руками
Ссылка на основную публикацию
Adblock
detector