Question

С клавиатуры одной строкой вводят имя и фамилию. Составьте программу, которая выводит сначала фамилию,а затем имя.

Answer 1

program pr;

var

s,n:string;

c:char;

i:integer;

begin

writeln('Введите имя и фамилию в одной строке');

readln (s);

i:=1;

while s[i]<>' ' do i:=i+1;

n:=copy(s,1,i-1);

writeln(n);

readln;

end.