Как вывести первые иницыалы фамилии,имени,отчества в паскале

Question

Как вывести первые иницыалы фамилии,имени,отчества в паскале

Comments

тебе написать пограмму или сказать ?)))

Answer 1

Program p1;
uses crt;
var s,s2,s3:string;
a:integer;
begin
read(s);
a:= Pos (' ',s);
s2:= copy(s,1,1);
Delete(s,1,a);
s3:=S3+s2+'.';
a:= Pos (' ',s);
s2:= copy(s,1,1);
Delete(s,1,a);
s3:=s3+s2+'.';
s2:= copy(s,1,1);
s3:=s3+s2+'.';
writeln(s3);
end.

Comments

Вот команды Pos - найти
Copy - копировать
delete- удалить

Answer 2

Var
s:string;
i: integer;
begin
readln(s);
s:=' '+s;
For i:=1 to length(s) do
if s[i] = ' ' then
Write(s[i+1]);
end.

Comments

Выдает

---

ИКС

---

Можно сделать чтобы после букв еще точуи выводила

---

или пробелы

---

сделай точки делов-то ... А то будут инициалы КГБ )))

---

Ну я уже ркдактировать не могу в этом проблема

---

если автор вопроса хоть немного знает Паскаль, то без проблем добавит вывод точки, после каждоц буквы

---

Стоит только надеяться

---

))

---

Ага)