Var
a, f, f1, i: integer;
begin
f := 0;
f1 := 0;
write('Введите 10 чисел:');
for i := 1 to 10 do
begin
read(a);
if(a > 10) then f := f + 1;
if(a > 5) then f1 := f1 + 1;
end;
if(f > 4) then write('Караул! Сейчас все взорвется')
else
begin
writeln(f1, ' чисел(о)(а) больше 5');
write(f, ' чисел(о)(а) больше 10');
end;
end.
<span>3200 байт
в 1гб = 1024 мб
в 1мб= 1024кб
в 1кб =1024 б
</span>
По логике 1, нооооо так же можно вставить при помощи 4
N=7+7+5 (14 букв, 5 цифр)
N=19 символов всего
i=5 бит/1символ
5*20=100 бит/1пароль
100/8=13 байт/1пароль
13*13=169 байт/13 паролей
ОТВЕТ 169
Program Prog;
Uses crt;
var a: array [1..100] of real;
i, N: integer;
begin
clrscr;
Write('N = ');
readln(n);
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
writeln('Положительные числа: ');
for i:=1 to n do
if (a[i]>0) then
writeln('a[',i,'] = ', a[i]);
end.