Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program zadacha;
uses crt;
var a: array[1..6] of integer;
max,i: integer;
begin
for i: =1 to 6 do readln(a[i]);
max: =a[1];
for i: =1 to 6 do if max > a[i] then max: =a[i];
writeln(max);
readln;
end.
вроде правильно..
1) неопределенность знаний n = 64 - 32 = 32;
2) i = log232 = 5 бит - количество информации;
3) количество бит соответствует количеству вопросов.
ответ: 5 вопросов.
var
x,y: real;
x: =-1;
while x< =1 do
y: =x*x*x;
writeln(y);
x: =x+0.1;
end;
бухгалтерия, документооборот.
Популярные вопросы