Question

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

Answer 1

uses crt;
var s,s1,s2:string;
i,k:integer;
begin
readln(s);
k:=pos(' ',s)-1;
for i:=1 to k do
s1:=s1+s[i];
k:=k+2;
for i:=k to length(s) do
s2:=s2+s[i];
writeln(s2,' ',s1);
end.