Мышка позволяет управлять положением курсора
Var min,max,i,s,n:integer;
begin
randomize;
write('Введите диапазон: '); readln(min,max);
if(min>max) then begin
max:=max+min;
min:=max-min;
max:=max-min;
end;
write('Введите количество чисел: '); readln(n);
for i:=1 to n do begin
n:= min + random(max-min);
write(i,'-е число: ', n);
if((n>6) and (not odd(n))) then begin
s:=s+n;
writeln(' (Четное и >6, сумма равна: ', s,')')
end
else begin write(' (Не четное');
if(n>6) then writeln(', но >6)')
else writeln(' и <6)');
end;
end;
write('Сумма четных чисел >6 равна: ',s);
end.
K = 8
N = 10 + 12 = 22;
из формулы
подбираем такое минимальное i, что
i = 5(
)
I для 1 пароля 8*5 = 40 бит
тогда для
* 10 паролей нам потребуется
3200 Байт
Var a,b:real:
begin
read(a);
b:=a*0.91;
writeln();
write(&a,'m=',&b,'yards');
end.