Question

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

Answer 1

// PascalABC.NET

// Версия 3.3.5 сборка 1662 (29.04.2018)

А

begin

   Println('Кол-во символов -',ReadString('Слово->').Length)

end.

Пример:

741258963

Кол-во символов - 9

Б

begin

   var s:=ReadString('Слово-> ').ToLower;

   Println(s[1]=s[s.Length]?'Совпадают':'Не совпадают');

end.

Пример:

Слово-> Олово

Совпадают

В

begin

   var s:=ReadString('Слово-> ');

   Println(s[1],s[2],s[s.Length]);

end.

Пример:

Слово-> Плотина

П л а

Г

begin

   Println(ReadString('Слово->').Length mod 2=0?'Четно':'Нечетно');

end.

Пример:

Слово-> Виноград

Четно