Задание по Pascal

  • Автор темы YuZuK
  • Дата начала
Статус
Закрыто для дальнейших ответов.
Y

YuZuK

#1
Помогите написать програму, которая поворачивает слово, если оно имеет чётное количество букв!!!!Заранее СПАСИБО!!!!
 
09.11.2009
665
1
#2
Код:
var s,s2:string;
i:integer;
begin
readln(s);
s2:=s;
if length(s) mod 2=0 then begin
for i:=1 to length(s) do
s2[i]:=s[length(s)-i+1];
writeln(s2);
end;
readln;
end.
 
Статус
Закрыто для дальнейших ответов.