• B правой части каждого сообщения есть стрелки ⇧ и ⇩. Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок ✔ в правой части сообщения.

Задание по Pascal

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

YuZuK

Помогите написать програму, которая поворачивает слово, если оно имеет чётное количество букв!!!!Заранее СПАСИБО!!!!
 
Сортировать по дате Сортировать по голосам
D

Dock1100

Код: 
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.
 
За 0 Против
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Верх Низ