Задание по Pascal

Тема в разделе "Pascal and Delphi", создана пользователем YuZuK, 4 дек 2010.

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

    YuZuK Гость

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

    Dock1100 :-]

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

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