Var a,b:integer;
x:real;
begin
writeln ('введи числа a и b');
readln (a,b);
if a=0 then writeln ('No')
else begin
x:=b/(-1*a);
writeln (x:5:2);
end;
end.
Я не представляю чисто с математической точки зрения, как тут может быть несколько вариантов, а уж тем более множество. Если приведешь примеры, я перепишу код
в алфавите 9+15*2=39 символа -> минимальное число бит на один символ: 6
9 Кбит = 9*1024 бит
на 1 пароль 9*1024/24=384 бит ~ 384/6=64 символа
Var n,i:integer; a,b:real; l:boolean;
begin
write('N='); readln(n);
l:=true;
write('a='); readln(a);
for i:=2 to n do
begin
write('a='); readln(b);
if b<a then l:=false;
a:=b;
end;
writeln(l);
<span>end.
Пример:
N=5
a=2
a=4
a=5
a=7
a=9
True</span>
Этот набор
1 2 4 8 16 32
примеры
63 = 32 + 16 + 8 + 4 + 2 + 1
57 = 32 + 16 + 8 + 1
1 = 1
2 = 2
3 = 2+ 1
19 = 16 + 2 + 1
26 = 16 + 8 + 2