ПАСКАЛЬ. (2 разные программки) Данные срочного типа (string)Задача: Ввести фамилию, имя,
ПАСКАЛЬ. (2 различные программы) Данные срочного типа (string)
Задачка: Ввести фамилию, имя, отчество как одно данное строкового типа.
1) Вывести самое краткое слово;
2) В тексте слово "мое" поменять словам "наше"
1 ответ
Kazjavin Vasilij
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 lt;= l do begin while (s[i] lt;gt; ' ') and (i lt;= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i gt; l) then break; end; j:= j + 1; i:= i + 1; end; i:= 2; min:=a[1].Length; while (a[i] lt;gt; '') do begin l:=a[i].Length; if (l lt; 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 lt;= l do begin while (s[i] lt;gt; ' ') and (i lt;= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i gt; l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] lt;gt; '') do begin if ((a[i] = 'мое') or (a[i] = 'Мое')) then a[i]:= 'наше'; write(a[i], ' '); i:= i + 1; end;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 lt;= l do begin while (s[i] lt;gt; ' ') and (i lt;= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i gt; l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] lt;gt; '') do begin if ((a[i] = 'мое') or (a[i] = 'Мое')) then a[i]:= 'наше'; write(a[i], ' '); i:= i + 1; end;End.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов