Что нужно дописать в программе, что бы при вводе Иванов Иван Иванович в ответе было Иванов И.И., пока что у меня при вводе Иванов Иван выдает Иванов И. Program Name1;
var
name1, probel, dot: string;
number: integer;
begin
name1 := 'Иванов Иван';
probel := ' ';
dot := '.';
number := Pos(probel, name1);
Writeln(number);
Writeln(name1);
Delete(name1, number+2, 60);
Writeln('Ваши инициалы: ', name1, dot);
Readln();
end.
var
name1, probel, dot: string;
number: integer;
begin
name1 := 'Иванов Иван';
probel := ' ';
dot := '.';
number := Pos(probel, name1);
Writeln(number);
Writeln(name1);
Delete(name1, number+2, 60);
Writeln('Ваши инициалы: ', name1, dot);
Readln();
end.
More Questions From This User See All