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

moseva2399 moseva2399    1   24.11.2019 13:24    19

Ответы
crisisd crisisd  27.08.2020 17:17

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика