Записать алгоритм в виде программы (pascal) алг вычисление цел a,c вещ b нач вывод "a=" ввод a вывод "c=" вывод c b=a+c/a^2+1 вывод "b=",b кон

Progpam vychisleniya; var a,c: integer; b: real; begin writeln('введите а: '); readln(a); writeln('введите c: '); readln(c); b=a+c/sqr(a)+1; writeln(' b=',b); end.

Была такая в школе у нас на одной важной работе. про пещеры и клад. к ней нужно было применить алфавитный < < известно, что ровно в двух пещерах из пяти есть клады. сколько битов нужно, чтобы закодировать информацию о расположении кладов? > > если решать традиционно, как на первый взгляд кажется - изящно, то ответ получится примерно таков: 1 2 3 4 50 1 0 0 1итого: 5 битов.мы же говорим о рациональном подходе. всего 5 пещер. в двух клады. сколько вариантов расположения кладов существует? 1 2 3 4 51-2,1-3,1-4,1-5,2-3,2-4,2-5,3-4,3-5,4-5итого: 10 вариантов - вот тебе и алфавит. можешь пронумеровать варианты(0, 1,2, и информацию хранить будешь в скольки битах? 10=2^i2^3=8(10 сюда не входит)2^4=16(10 входит. пусть будет немного лишней информации, зато она не потеряется.)получаем 4 бита.