Question

Дані строкового типу вивести ім'я, по батькові і кількість букв в прізвищі паскаль

Answer 1

Можна так
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.