5-(8-5) = 2 (наполняем 8 по 5, со второго раза в 5 останется 2л) 8-5=3 5-(8-5) + 5 = 7 (получаем 2л(см выше), переливаем в 8, добавляем еще 5л = 7 ) 8-(5-3) = 6 (в 5 есть 3л, отлить 5-3=2л из 8 = 6) 5-(5-(8-5) + 5) = 4 (имеем 7л в 8, отливаем литр из 5 = 4) 8+8-5-5-5 = 1 (набираем 8 и вычерпываем по 5)
1. Надо добавить точку в последней строке программы. Иначе работать не будет. 2. Меняется всего одна строка в программе:
program pr2;
type student = record {объявление нового типа данных student} LastName: string; {фамилия студента} bal: array [1..5] of integer; {массив для 5-ти оценок} average: real {средний студента} end;
var pupil: array [1..100] of student; {массив pupil (максимум из 100 элементов) типа student} n, i, j, s: integer;{переменные целого типа}
begin write('Введите количество студентов: '); readln(n); for i := 1 to n do begin{запрос данных по n студентам} with pupil[i] do begin Write('Введите фамилию студента №', i, ': '); {запрос фамилии студента под номером i} Readln(LastName); s := 0; {целочисленная переменная для определения суммы студента} for j := 1 to 5 do begin{цикл для обработки 5-ти оценок каждого студента} write('Введите оценку за экзамен №:', j, ': ' ); readln(bal[j] ); s := s + bal[j]; {суммирование 5-ти оценок студента} end; average := s / 5; {определение среднего значения и запись в переменную average} end; end; writeln; writeln( 'Студенты, имеющие средний больший или равный 4'); for i := 1 to n do begin if pupil[i].average >= 4 then {если средний студента >=4} write(pupil[i].LastName,', '); end; end.
1024. высота каждого дерева может принимать два значения. (+/- 1 метр от высоты предыдущего, т.е известие, что последующие дерево выше предыдущего на 1 метр несет 1 бит информации) соответственнр основание системы счисления буде равно двум. Количество разрядов (бит) в комбинации 10 (т.к. 11 дерево всегда неизменно по высоте 100м). Применяем формулу Хартли: N=2^k. (т.к. вероятность того, что последующие дерево будет на метр выше такая же, что оно будет на метр ниже). 2^10 = 1024. Всего возможно 1024 комбинаций таких садов.
8-5=3
5-(8-5) + 5 = 7 (получаем 2л(см выше), переливаем в 8, добавляем еще 5л = 7 )
8-(5-3) = 6 (в 5 есть 3л, отлить 5-3=2л из 8 = 6)
5-(5-(8-5) + 5) = 4 (имеем 7л в 8, отливаем литр из 5 = 4)
8+8-5-5-5 = 1 (набираем 8 и вычерпываем по 5)