• СРОЧНО, ПОЖАЛУЙСТА!!!!! паскаль. введите слово с клавиатуры. если длина слова четная, то удалить первую букву, а если нечетная длина, то поменять местами ервую и последнюю буквы

Ответы 1

  • program stroka;var s,c,k: string; n: integer;   begin    readln(s);     n:= ord(s[0]);       if n mod 2 = 0 then         begin            delete(s,1,1);            writeln(s);         end;       if n mod 2 <> 0 then         begin            c:= s[n];            k:=s[1];              delete(s,1,1);              n:= ord(s[0]);              delete(s,n,1);              writeln(c,s,k);         end;   end.
    • Автор:

      martín52
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years