Дані строкового типу(string) завдання: ввести прізвище, ім'я,по батькові як одне дане строкового типу. 1) вивести найкоротше слово; 2) у тексті слово "моє" замінити словам "наше".
159
251
Ответы на вопрос:
Program z18; var a: array [1..1000] of string; i,j,l,min,h: integer; s: string; begin write('введите строку - '); readln(s); l: =s.length; i: = 1; j: = 1; while i < = l do begin while (s[i] < > ' ') and (i < = l) do begin a[j]: =a[j] + s[i]; i: = i + 1; if (i > l) then break; end; j: = j + 1; i: = i + 1; end; i: = 2; min: =a[1].length; while (a[i] < > '') do begin l: =a[i].length; if (l < min) then h: = i; i: = i + 1; end; writeln(a[h]); end. program z19; var a: array [1..1000] of string; i,j,l,min: integer; s: string; begin write('введите строку - '); readln(s); l: =s.length; i: = 1; j: = 1; while i < = l do begin while (s[i] < > ' ') and (i < = l) do begin a[j]: =a[j] + s[i]; i: = i + 1; if (i > l) then break; end; j: = j + 1; i: = i + 1; end; i: = 1; while (a[i] < > '') do begin if ((a[i] = 'мое') or (a[i] = 'мое')) then a[i]: = 'наше'; write(a[i], ' '); i: = i + 1; end; end.
Популярно: Информатика
-
drshev07.07.2021 14:13
-
Lena11111525.10.2020 12:50
-
maximorlov0407.07.2022 05:23
-
Миша311110.11.2021 08:49
-
Милана309116.10.2020 16:07
-
liliakhalilova03.05.2023 09:46
-
sychewaya831017.12.2021 12:17
-
megakolbina23.04.2020 06:30
-
GNOMIK227831.12.2020 01:44
-
Gamonga28.06.2023 09:44