Вопрос от посетителя:
С клавиатуры одной строкой вводят имя и фамилию. Составьте программу, которая выводит сначала фамилию,а затем имя.
Илюха отвечает:
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.