дані строкового типу вивести ім'я, по батькові і кількість букв в прізвищі паскаль
Answers & Comments
clinteastwood2
Можна так var s,f,i:string; begin s:='Галкин Владислав Евгеньевич'; f:=copy(s,1,pos(' ',s)-1); delete(s,1,pos(' ',s)); i:=copy(s,1,pos(' ',s)-1); write('Фамилия - ',f,', кол-во букв в фамилии=',length(f)/2:1:0,'; Имя - ',i); readln; end.
Answers & Comments
var s,f,i:string;
begin
s:='Галкин Владислав Евгеньевич';
f:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
i:=copy(s,1,pos(' ',s)-1);
write('Фамилия - ',f,', кол-во букв в фамилии=',length(f)/2:1:0,'; Имя - ',i);
readln;
end.