Program fact; var i: Integer;x, z, a, b, c:real;begin z:=0; i:=0; repeat writeln ('Введите результаты спортсменов a, b, c'); readln (a, b, c); x:=(a+b+c)/3; writeln(x); If x>z then z:=z else z:=x; i:=i+1; until i=3; writeln(z); end. Ребят нужно в подпрограмму добавить ещё одну подпрограмму чтобы в ответе z сохранял своё значение чтоб в ответе z не был равен нулю​

Что бы перевести и 2-ной c.c в десятичную,необходимо разложить число по разрядам,над числом  1100,начиная с конца (т.е от знака равно) и  начиная с нулевого разряда,т.е 1100(2)=(расставляем разряды над числом) (2) =(теперь для того чтобы перевести из 2-ной в 10-ную,необходимо разложить число на множители, умножая на основание данной с.с и расставляя степень числа)1*+1*+0*+0*=(затем возводим основание с.с в степень данного числа)1*8+1*4+0*2+0*1=(в итоге перемножаем и складываем)8+4+0+0=(после сложение получилось число в 10-ной с.с) 12(10), то что (...)- это система счисления,записывается нижним индексом и без скобок,т.е старшей сестре 12 лет, если она пошла в школу с 111, то это 111(2)= ==1*4+1*2+1*1=4+2+1=7(10) ---->сестра пошла в школу с 7-ми лет, тут 7 лет - 1 кл, 8 лет - 2 кл,  9 лет - 3 кл,  10 лет - 4 кл, 11 лет - 5 кл, 12 лет - 6 кл
а младше сестре 100(2)= = =1*4+0*2+0*1=4 (10) года

1. Вероятность вынуть первым красный карандаш определяется отношением количества красных карандашей к их общему числу, т.е. 2/4 или 1/2.
2. Теперь в коробке остался один красный карандаш, а всего карандашей - три. Вероятность вынуть красный карандаш равна 1/3.
3. Вероятность наступления обоих событий определяется произведением обоих вероятностей и составляет 1/2 × 1/3 = 1/6
Итак, два красных (а также два синих) карандаша можно вынуть с вероятностью 1/6.
Сумма всех вероятностей равна 1, с вероятностью 1/6 оба карандаша будут красные, 1/6 - синие, значит на долю события, когда карандаши будут разного цвета остается 1 - 1/6 - 1/6 = 2/3