• Дан текст, содержащий от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: 1) перенести первую букву в конец слова; 2) перенести последнюю букву в начало слова.
    Pascal//Помогите пожалуйста с некоторым  описанием
     10-11 кл

Ответы 1

  • var  ast:array[1..30] of string;procedure GetWord(s: string; var ib: integer; var pWord: string; var l: integer);// Возвращает слово pWord, которое является подстрокой s// Разделителем слов являются один и более пробелов.// ib при вызове процедуры указывает на позицию в строке s,// начиная с которой ведется поиск слова.// При выходе из процедуры ib - позиция начала найденного слова,// l- длина найденного слова, l=0 если слово не найдено. var
    • Автор:

      buddyprp9
    • 2 года назад
    • 3
  • Добавить свой ответ

Войти через Google

или

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

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

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