Составьте программу, печатающую слово в обратном порядке.

Question

Составьте программу, печатающую слово в обратном порядке.

Comments

pascal ABC

---

Var s:string; i:integer; Begin Readln(s); i:=length(s); while (i>0) and (s [ i]=' ') do i:=i-1; if i=0 then Writeln('слова в строке не обнаружены') else repeat Write(s[ i]); i:=i-1 until (i=0) or (s[ i]=' '); End.

---

Срока "program" является не обязательной, ну напиши:)

---

Строка*

---

vars: string;i,n: byte;c: char;beginreadln(s);n := length(s) div 2;for i := 1 to n do beginc := s[i];s[i] := s[length(s)-i+1];s[length(s)-i+1] := c;end;writeln(s);end.

---

И так можно тоже

Answer 1

Var s:string; i:integer; 
Begin 
Readln(s); i:=length(s); 
while (i>0) and (s [ i]=' ') do i:=i-1; 
if i=0 then Writeln('слова в строке не обнаружены') 
else repeat Write(s[ i]); i:=i-1 until (i=0) or (s[ i]=' '); 
End. 

Answer 2

Var
s: string;i,n:
byte;c: char;
begin
readln(s);
n := length(s) div 2;
for i := 1 to n do begin
c := s[i];
s[i] := s[length(s)-i+1];
s[length(s)-i+1] := c;
end;
writeln(s);
end.