1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Задание по Pascal

Тема в разделе "Вопросы новичков и не только", создана пользователем YuZuK, 4 дек 2010.

Статус темы:
Закрыта.
  1. YuZuK

    YuZuK Гость

    Репутация:
    0
    Помогите написать програму, которая поворачивает слово, если оно имеет чётное количество букв!!!!Заранее СПАСИБО!!!!
     
  2. Dock1100

    Dock1100 :-]

    Репутация:
    0
    Регистрация:
    9 ноя 2009
    Сообщения:
    665
    Симпатии:
    1
    Код:
    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.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей