Var i,x1,x2:integer; y:real; begin writeln('введите х нач и х конечное'); readln(x1,x2); writeln('введите шаг для х'); readln(i); while x1<=x2 do begin if sin(x1)/Cos(x1)<>0 then begin y:=(Sin(x1)+2*Cos(x1))/(Sin(x1)/Cos(x1)); writeln(x1:4,y:10:2); end; x1:=x1+i; end; end.
Логин занимает объём памяти равной = 20 * 5 бит = 100 бит (5 бит, т.к ) Аналогично с паролем, он занимает 15 * 4 бита = 60 бит памяти Для хранения результатов выбора пола достаточно одного бита ( всего два возможных варианта() - ж или м,). Итого одна учетная запись занимает: 100 + 60 +1 = 161 бит памяти. Но в условии сказано, что она кодируется минимально возможным целым! кол-вом байт, значит: 161/8 = 20,125 байт, округляем в большую сторону - 21 байт. Всего 30 записей: 21 * 30 = 630 байт. Значит верный ответ под номером 3)
i,x1,x2:integer;
y:real;
begin
writeln('введите х нач и х конечное');
readln(x1,x2);
writeln('введите шаг для х');
readln(i);
while x1<=x2 do
begin
if sin(x1)/Cos(x1)<>0 then
begin
y:=(Sin(x1)+2*Cos(x1))/(Sin(x1)/Cos(x1));
writeln(x1:4,y:10:2);
end;
x1:=x1+i;
end;
end.