Вопрос от посетителя:
С клавиатуры вводят число.Составить программу которая: а)Определяет количество символов в нём; б)проверяет,не совпадают ли первая и последняя буква слова; в)выводит на экран первый,второй и последний символы; г)определяет,чётно или нечётно количество символов в слове.
Илюха отвечает:
// 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.
Пример:
Слово-> Виноград
Четно