Решить задание на паскале.
Пример:
var
fio,s,f,i,o:string;
k:byte;
begin
write('Емельянов Денис Алексеевич');readln(s);
f:=copy(s,1,1);
k:=pos(' ',s);
Delete(s,2,k);
i:=copy(s,1,1);
k:=pos(' ',s);
Delete(s,1,k);
o:=copy(s,1,1);
fio:=f+'.'+i+'.'+o+'.';
writeln('ЕДА.', fio);
end.

Lãkomkã01    1   22.04.2020 20:19    0