Вася загадал число от 1 до n. за какое наименьшее количество вопросов (на которые вася отвечает да или - id577392720220518 от валериякотик19 18.05.2022 03:19

Question

Информатика: Вася загадал число от 1 до n. за какое наименьшее количество вопросов (на которые вася отвечает да или нет ) петя может угадать васино число? входные данные вводится одно число n выходные данные выведите наименьшее количество вопросов, которого гарантированно хватит пете, чтобы угадать васино число. примеры входные данные 5 выходные данные 3

валериякотик19 · Accepted Answer

Var
f: array[1..10] of integer;
i,suma,sumb:integer;
begin
randomize;
for i:=1 to 10 do
begin f[i]:=random(10)+10;
write(f[i],' ');
end;
suma:=0;
sumb:=0;
for i:= 1 to 10 do
if f[i] mod 2 = 0 then
suma:=suma+f[i];
else
sumb:sumb+f[i];
writeln('Сумма четных: ',suma);
writeln('Сумма нечетных: ',sumb);
end.

var
f: array[1..8] of integer;
i,k,sumb:integer;
begin
randomize;
for i:=1 to 8 do
begin f[i]:=random(10)+10;
write(f[i],' ');
end;
k:=0;
sumb:=0;
for i:= 1 to 8 do
if f[i] mod 2 = 0 then
k:=k+1;
else
sumb:sumb+f[i];
writeln('Количество четных: ',k);
writeln('Сумма нечетных: ',sumb);
end.

MOGZ ответил