10 класс Составьте программу, позволяющую ввести фамилию, имя и отчество учащегося, разделенные пробелом, и вывести фамилию и инициалы. Пример ввода: Иванов Сергей Михайлович { строка s } Пример вывода: Иванов С. М. Паскаль
var
str: string;
i,k: integer;
begin
write('Введите фамилию, имя и отчество: ');
readln(str);
for i:=1 to length(str) do
if (str[i]<>' ')and(k=0) then
write(str[i]) else
if str[i]=' ' then
inc(k);
write(' ',str[i+1],'.');
end;
readln;
end.
попробуй эту программу.
Учительница сразу поймет , что списано
У нас можно использовать LengthCopyDeleteInsertPos
Ну так это в условии задания указывать, что такие ограничения.