Принятые в программе ДОПОЛНИТЕЛЬНЫЕ К УСЛОВИЮ ЗАДАНИЯ соглашения: 1. Разделителями между словами считаются любые символы, включенные к константу delim 2. Все символы, не входящие в delim, образуют алфавит (т.е. "буквы"), из которого может быть составлено каждое слово 3. Количество разделителей, окружающих каждое слово, ограничено только здравым смыслом. Все разделители будут переданы в строку результата без изменения. 4. Если слово содержит только один символ, оно не изменяется, несмотря на то, что единица - нечетное число. В противном случае такое слово было бы исключено. К тому же, слово длиной в один символ не имеет "средней буквы"
CONST delim = " .,;:!?-" DIM s AS STRING, s1 AS STRING, word AS STRING, wd AS STRING DIM i AS INTEGER, n AS INTEGER, k AS INTEGER INPUT "Введите строку: ", s 'Обеспечить наличие пробела за последним словом IF INSTR(delim, RIGHT$(s, 1)) = 0 THEN s = s + " " 'Начальные присваивания n = LEN(s): s1 = "": i = 1 DO WHILE i <= n 'Просматриваем входную строку символ за символом 'Ищем первый непробельный символ wd = "" 'qq DO WHILE (INSTR(delim, MID$(s, i, 1)) <> 0) AND (i <= n) wd = wd + MID$(s, i, 1) i = i + 1 LOOP 'Выделяем очередное слово, за которым следует пробельный символ word = "" DO WHILE (INSTR(delim, MID$(s, i, 1)) = 0) AND (i <= n) word = word + MID$(s, i, 1) i = i + 1 LOOP 'Найдено ли слово? k = LEN(word) IF k > 0 THEN 'Если слово найдено '--- вырезается средний символ при нечетной длине --- IF (k > 1) AND (k MOD 2 <> 0) THEN k = (k - 1) \ 2 word = LEFT$(word, k) + RIGHT$(word, k) END IF ' 'Добавляем найденное слово через wd к выходной строке s1 = s1 + wd + word END IF LOOP PRINT "Результат: " + s1 END
Примеры работы программы: 1. Обычный текст: слова через один пробел Введите строку: А роза упала на лапу Азора Результат: А роза упла на лапу Азра 2. Использовано больше одного пробела и разделители : и ! Введите строку: Пример №2: Ура! Мы ломим: гнутся шведы! Результат: Пример №2: Уа! Мы лоим: гнутся швды! 3. Использовано несколько непробельных разделителей подряд Введите строку: Пример --№3--: Какое небо голубое!... Результат: Пример --№3--: Каое небо голбое!...
Такое задание уже было. Я на него отвечал, думаю модераторы не против, если свой же ответ здесь предоставлю) Только первых три
Задача 1: var p: array[1..10] of integer; i:integer; count:integer; begin for i:=1 to 10 do read(p[i]); write('Сколько цифр массива хотите видеть? -> '); readln(count); for i:=1 to count do write(p[i]:3); end.
Задача 2:
var arr: array[1..10] of integer; i:integer; s:integer; count:integer; begin for i:=1 to 10 do begin arr[i]:=Random(-10,10); if(arr[i]<0) then begin writeln(arr[i]:4); s:=s+arr[i]; count:=count+1; end; end; writeln('Среднее значение = ', s/count); end.
Задача 3:
var arr: array[1..10] of integer; i:integer; crat:integer; id:integer; begin for i:=1 to 10 do begin read(arr[i]); crat:=arr[i] mod 3; if(crat = 0) then begin id:=arr[i]; if(arr[i] = id) then writeln('Id = ', i:2); end; end; end.
809¹⁰=329¹⁶
347⁸=11100111²
1025¹⁰=100001⁴
362⁷=191¹⁰
101100110²=358¹⁰, 166¹⁶
Объяснение:
Я