Предмет: Информатика,
автор: katydream
С клавиатуры вводится строка, содержащая фамилию и имя. Составьте программу, которая выводит фамилию и сокращённое имя.
Приложения:
Ответы
Автор ответа:
4
Ответ:
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.
katydream:
Спасибо!
Интересные вопросы
Предмет: Алгебра,
автор: irina09yudina
Предмет: Алгебра,
автор: annsvet
Предмет: История,
автор: magdapalazan
Предмет: Математика,
автор: gyla3
Предмет: Литература,
автор: Almaznik1999