Program n1; Uses CRT; Var a,b,c,k,n,i: integer; begin ClrScr; writeln('vvedite n'); readln(n); For i:=100 to 999 do begin a:=i div 100; b:=i mod 100 div 10; c:=i mod 10; If a+b+c=n then begin write(i:4); k:=k+1; end; end; if k=0 then writeln('takih chisel net'); readln end.
Очень сильно зависит от контекста. допустим, вы знали, что какая-то девочка должна была выйти, а вышла именно девочка в желтом. Тогда, так как могла выйти любая из 8-ми, а вышла именно в желтом, сообщение содержит 3 бита информации. Если же выйти могло любое кол-во девочек, а вышла именно одна, да еще и с желтым платьем, то сообщение содержит 8 бит информации. Теперь поясню: тут вопрос "какое кол-во информации" равнозначен вопросу "Сколько бит мне нужно, чтобы закодировать все комбинации". Так, чтобы закодировать 8 цветов нужно всего 3 бита, чтобы закодировать группу девочек, нужно 8 бит (каждый бит соответствует девочке, бит is set означает, что она вышла, бит not set - что она не вышла)
for (int i = 0; i < 12; i++) { printf("\nY[%d]=", i); scanf("%d", &Y[i]); }
for (int i = 0; i < 12; i++) { mult *= Y[i]; }
printf("\n%f", pow(mult, 1.0/12)); return 0; }
Функция scanf() является процедурой ввода общего назначения, считывающей данные из потока stdin. Она может считывать данные всех базовых типов и автоматически конвертировать их в нужный внутренний формат. Если бы printf() выполняла ввод, а не вывод, ее можно было бы назвать аналогом scanf().
Функция printf() записывает в stdout аргументы из списка arg-list под управлением строки, на которую указывает аргумент format.
Функция pow() возвращает значение base, возведенное в степень ехр, т. е. baseexp. Переполнение вызывает ошибку области значений. Также может возникнуть ошибка области определения.
Program n1;
Uses CRT;
Var a,b,c,k,n,i: integer;
begin
ClrScr;
writeln('vvedite n');
readln(n);
For i:=100 to 999 do
begin
a:=i div 100;
b:=i mod 100 div 10;
c:=i mod 10;
If a+b+c=n then
begin
write(i:4);
k:=k+1;
end;
end;
if k=0 then writeln('takih chisel net');
readln
end.