Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Составить программу, которая определяет длину введённого с клавиатуры слова и составляет новое слово из первой и последней буквы данного слова

Ответ оставил Гость

//Pascal ABC.NET 3.1 сборка 1219

Var
 s:string;
begin
 readln(s);
 writeln(Длина слова:,length(s));
 writeln(Новое слово:,s[1]+s[length(s)]);
end.


Пример ввода:
мяч
Пример вывода:
Длина слова:3
Новое слово:мч