Question

С клавиатуры вводится строка, содержащая фамилию и имя. Составьте программу, которая выводит фамилию и сокращённое имя.

Answer 1

Ответ:

var s:string;

i:integer;

begin

readln (s);

for i:=1 to Length(s)-1 do

if (s[i]=' ') and (s[i+1]<>' ') then write (copy(s,1,i+1),'.')

end.