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

Question

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

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

Answer 1

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

---

Comments

Огромное спасибо, а не могли бы помочь мне с другой задачей? http://znanija.com/task/4297093

---

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.