Давайте проведем эксперимент возьмём красный кубик и распределён в каждую его сторону на 7 равных частей На какие группы можно разделить полученную множество маленьких кубиков Укажите эту группу И точное количество кубиков в каждой из них

116

430

Посмотреть ответы 1

Ответы на вопрос:

Ekirakosyan12

Информатика

4,5(6 оценок)

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.