Var i:integer;s:real;begins:=0;for i:=1 to 20 dos:=s+(1/i);writeln('y = ',s);end.
А) var a,b,c:real;
begin
readln(a);
readln(b);
readln(c);
if (a>b) and (a>c) then writeln('Победил 1! Результат: ',a);
if (b>a) and (b>c) then writeln('Победил 2! Результат: ',b);
if (c>b) and (c>b) then writeln('Победил 3! Результат: ',c);
end.
Program pr;
var x,y: integer;
begin
x:=3;
y:=7*x*x+5*x+2;
writeln('При х=',x,', у=', y);
x:=2;
y:=7*x*x+5*x+2;
writeln('При х=',x,', у=', y);
end.
1) 1800 символов- утеряно будет
1800 байт или 14 400 бит
<span>2) остается 59 400 символов, 59 400 байт или 475 300 бит</span>
Моно (1) * кодирование (16) * частота дискретезации (32 * 1000(гц)) * t(сек) = 625 * 2^13 бит
t=(625*2^13)/(1000*2^5*2^4)
t = 10 сек
Вроде так, если нигде не ошибся. Когда без калькулятора считаешь работай со степенями 2; и 1000 можно представлять как 2^10 = (1024), если есть варианты ответа, погрешность не большая
2^x*2^y=2^(x+y)
2^x/2^y=2^(x-y)