Светлана
ЮР
Юра Ракитин
var s:string; i,k:integer;
begin
readln(s); k:=pos(' ',s)-1; if k<=0 then k:=length(s);
for i:=k downto 1 do write(s[ i]); writeln; readln
end.
ПП
Памповая Птица
учиться надо было в свое время. быстрее ей)
Вл
Владимир
Не тарапися
Андрей Андрей
freelance.ru
free-lance.ru
weblancer.net
Вот там тебе срочно сделают, а тут только если желание будет. Чтобы поторапливать, плати деньги.
Похожие вопросы