Заданы фамилия, имя и отчество учащегося, разделенные одним или несколькими пробелами. Напишите программу, печатающую фамилию ученика и его инициалы (инициал заканчивается точкой). После фамилии оставлять один пробел. Входные д...
Заданы фамилия, имя и отчество учащегося, разделенные одним или несколькими пробелами. Напишите программу, печатающую фамилию ученика и его инициалы (инициал заканчивается точкой). После фамилии оставлять один пробел.
Входные данные: ввести строку с длиной не более 255 символов.
Выходные данные: вывести одну строку фамилию ученика и его инициалы (инициал заканчивается точкой).
Паскаль. Если не трудно с объяснением, заранее спасибо!
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var s:=ReadlnString('Введите строку:');
var p:=Pos('.',s);
if p>0 then s:=Copy(s,1,p-1);
var a:=s.ToWords;
if a.Count=3 then begin
Writeln(a[0],' ',a[1][1],'.',a[2][1],'.')
end
else
Writeln('Неверно задана строка')
end.
Тестовое решение:
Введите строку: Иванов Петр Сергеевич.!!! Это лишнее
Иванов П.С.
Не нашли ответ?
Похожие вопросы