Question

Нужно ввести с клавиатуры в одну строку фамилию, имя и отчество. Вывести фамилию и инициалы.  Напишите, пожалуйста, программу!

Пример:
Напечатали "Иванов Петр Сергеевич", компьютер выдаёт Иванов П.С.

Answer 1

............................................

Answer 2

var
str: string;
i,k: integer;
begin
write('Введите фамилию, имя и отчество: ');
readln(str);
for i:=1 to length(str) do
begin
if (str[i]<>' ')and(k=0) then
write(str[i]) else
if str[i]=' ' then
begin
inc(k);
write(' ',str[i+1],'.');
end;
end;
readln;
end.