Дан текст, содержащий от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела. напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: 1) перенести первую букву в конец слова; 2) перенести последнюю букву в начало слова. pascal// с некоторым описанием 10-11 кл
226
488
Ответы на вопрос:
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
Популярно: Информатика
-
sleepyfriend1806.08.2020 12:31
-
кармини01.02.2020 19:38
-
zilga115.10.2020 23:07
-
4а4в7ч9п09.09.2022 13:08
-
Makc13402.10.2020 16:50
-
1BYRYNDYK103.12.2021 01:08
-
люси9706.12.2020 12:32
-
сказка50003.10.2020 00:52
-
gopd222.03.2021 07:50
-
чек1406.06.2023 14:11