Var a,b,c,max: Integer;
begin
writeln('Введите a,b,c');
readln(a,b,c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln('Наибольшее число: ',max);
end.
Ответ:
16
Объяснение:
Пусть количество шаров Х. По условию I = 4, и все шары разного цвета, поэтому вероятность вытаскивания зелёного шара p= 1/Х.
По формуле Хартли I= – log₂ p или же 4= – log₂ 1/Х.
Из последнего уравнения получаем, что Х=16
При операции И сокращается количество результатов, операция ИЛИ увеличивает количество результатов значит решение будет таким:
2,1,4,3
Читаем программу: нам даны интегрированные числа k, m, num;
И даны интегрированные числа с номерами от 1 до 10;
Начало цикла
числам dat от 1 до 10 присваиваются значения;
Присваиваем числу num значение 1;
Присваиваем числу m значение dat[1];
Для числа k присваивается значение от 2 до 10 (алгоритм будет выполнятся 9 раз т.к. числу k каждый раз будет присваивается значение 2,3,4,5,6,7,8,9,10 - пока не дойдем до 10) даем начало цикла
если значение dat[k] (перебираются все значения от 1 до 10) меньше 2 умноженное на число m, тогда начать цикл присваивание числу m значение числа dat[k] которое было в условии;
числу num присвоить значение k;
конец цикла;
конец цикла ;
вывести значение числа num;
конец цикла;
на экране будут показаны все положительные значения dat, которые будут равны num
Для решения этой задачи необходимо найти число, которое без остатка делится на 4 и на 6. Это число 12.
Если к Винни-Пуху придут 4 гостя, то они получат по 3 куска пирога: 12:4=3. Если 6, то им повезет меньше: 12:6=2.
Винни-Пуху пирог нужно разделить на 12 частей.