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

  • Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

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

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

Верх Низ