Var h1,h2:integer; n1,n2:string; begin Write('Введите имя первой девочки: '); Readln(n1); Write('Введите рост первой девочки: '); Readln(h1); Write('Введите имя второй девочки: '); Readln(n2); Write('Введите рост второй девочки: '); Readln(h2); if h1>h2 then Writeln(n1,' выше, чем ',n2) else if h2>h1 then Writeln(n2,' выше, чем ',n1) else Writeln(n1,' и ',n2,' одного роста') end.
Тестовое решение: Введите имя первой девочки: Наташа Введите рост первой девочки: 163 Введите имя второй девочки: Даша Введите рост второй девочки: 167 Даша выше, чем Наташа
Блок-схема дана во вложении. Блоки ввода вывода упрощены в связи с невозможностью (и ненужностью) точно отобразить вид ввода и вывода.
var a: array[1..m1, 1..n1] of integer; m, n, i, j, t, imin, jmin, mn: integer;
begin Write('Введите через пробел число строк и столбцов массива: '); Readln(m, n); Randomize; Writeln('Исходный массив'); mn := 32767; for i := 1 to m do begin for j := 1 to n do begin t := Random(101) - 50; Write(t:5); if mn > t then begin mn := t; imin := i; jmin := j end; a[i, j] := t end; Writeln end; Writeln('Минимальный элемент a[', imin, ',', jmin, ']=', mn) end.
при 64-ти символьном алфавите на 1 символ приходится 64 = 2^i ⇒ i =6 бит
3/16кб = 0,1875кб => ≈1556,48 бит
1556,48/6 ≈ 259 символов.