1 байт = 8 бит
1 Кбайт = 1024 байт
1 Мбайт = 1024 Кбайт
1 ГБ = 1024 МБ
1 бит = 0,00012 Кбайт
1 Мбайт = 1048576 байт
1 байт = 8 битов
128 битов = 16 байт
32 байт = 256 бит
1 Кбайт = 1024 байт
1,5 Кбайт = 1536 байтов
2048 байт = 2 Кбайт
81 920 битов = 10 Кбайт
2 Мбайт = 2048 Кбайт
1,5 Мбайт = 1572864 байтов
а потом сам(а)
Начало
Проснуться
Умыться
Собраться
Выйти из дома
Прийти в школу
Прийти на первый урок
Прийти на второй урок
Прийти на третий урок
Прийти на четвертый урок
Выйти из школы
Прийти домой
Пообедать
Начать выполнять домашнее задание
Сесть за стол
Достать дневник, учебники, тетради
Прочитать задание в дневнике
Открыть учебник и тетрадь
Выполнить задание
Сложить школьные вещи в портфель
Пойти почистить зубы
Лечь спать
Конец
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.
Можно сделать, например, так, как показано в прилагаемом файле.
Формулы:
В столбце B =1+1/A2
В столбце C =B2<1,2
В ячейке C12 =ИНДЕКС(A2:C11;ПОИСКПОЗ(ИСТИНА;C2:C11;0);1)
