На третьей строчке, видимо, ошибка, и вместо Вывод(x) на самом деле Ввод(x).
var x: integer; y: real; begin Readln(x); y := (10 + 2 * x) / (11 - x); Writeln(y); end.При x = 3 переменная y = 2Задание 3var number, resultNumber, i: integer; begin resultNumber := 1; for i := 1 to 3 do begin Readln(number); resultNumber := resultNumber * number; end; Writeln(resultNumber); end.Задание 4var a: integer; b, c: real; begin a := 3; b := -1.5; c := 6 - 2 * b; c := c - a; Writeln(c); end.Результатом вывода будет число 6Задание 5var x, y, z: integer; begin x := 8; y := 2; if (x > y) then z := x - y else z := y + x; Writeln(z); end.ответ
18 байт
Объяснение:
личный код имеет 14 символов кожен с которых может иметь 36 значений(26 значений букв и 10 цифр).
36 значений можно закодировать в 6 бит (2^6=64 - входит и значение 36)
Личный код имеет 14 символов значит
6 бит * 14 = 84бит=8.5байт
код подразделений имеет 8 значений 5 первых которые буквы от А до F (6 значений)
6 значений это 3 бита(2^3=8 - входит 6)
Код имеет 5 первых букв
5*3=15бит=1.9байт
И трьохзначное число по три значения кожное з которых может быть максимум 9
9 значений это 4 бита
таких значений есть 3
3*4=12бит=1.5байт
Сумируем 1.5+1.9+8.5=11.9≈12байт
30-12=18байт
