Что тут не так? program nod; var a,b: integer; begin write ('введите два натуральных числа'); readln(4,2); while 4< > 2 do if 4> 2 then a: =4-2 else b: =2-4 writeln('нод=',4); readln end.
1. Два решения есть :-) 1а. Допустим, все карандаши в корзине разные (различим их по молекулярному составу) . Тогда информация о молекулярном составе вытащенного карандаша несет log(2)(64) = 6 бит информации. Информация о цвете несет 4 бита. Значит, 2 бита информации о молекулярном составе несущественны. Значит, число карандашей одного цвета разного состава есть 2^2 = 4 штуки. 1б. 4 бита информации описывают одно из 2^4 равновероятных событий, то есть 1 из 16 событий. Равновероятны события только, если разных цветов карандашей одинаковое число штук. То есть, 64/16 = 4 штуки. 2. Так как не было известно, в каком вагоне поедут, информации имеем log(2) (16) = 4 бита. Кроме того, можно считать, что не знали, поедут ли, но тогда расчет усложняется - если не поедут, информация о вагоне не нужна, то есть это - зависимые события. Думаю, что в задаче заранее известно, что они таки выезжают, вопрос только в вагоне
Биология: Основатель второй теории эволюции - Чарльз Дарвин; Человек принадлежит к отряду Высших обезьян
География: Самая густонаселенная страна мира - Монако; У КНДР самая большая площадь в мире
Математика: 16 - это 2⁴; площадь треугольника вычисляется по формуле a*b*c*h - где a,b,c - стороны, а h - высота
Литература: Роман-эпопея "Война и Мир", написанная Л.Н. Толстым,основывается на реальных событиях...; "Горе от ума" - трагедия, в которой герой осваивает основы светской жизни
Информатика: пример конъюнкции: 1 && 1 = 1; пример конъюнкции: 0 && 1 = 1
Объяснение:
Если нужно найти наибольший общий делитель, то так:
program Nod;
var a,b:integer;
begin
Write ('введите два натуральных числа');
Readln(a,b);
While a<>b do
begin
If a>b then a:=a-b;
else b:=b-a;
end;
Writeln('НОД=',a);
end.