Вторая:
Var
x:real;
Begin
Read(x);
if x<=0 then write('y = 0')
else if x<= 1 then write('y = ',x*x-x)
else write('y = ',x*x - sin(Pi*x*x -1))
End.
Третья:
Var
S1,S2:real;
Begin
Write('Площадь круга = ');Read(S1);
Write('Площадь квадрата = ');Read(S2);
S1:=sqrt(S1/Pi);
S2:=sqrt(S2);
if S1<=S2/2 then write('уместится')
else write('не уместится');
End.
Компас нужно для того что бы направляться по верному пути. микроскоп нужен для тож юго что бы изучать чтото.
1. 2^13 МБ = 2^23 КБ = 2^33 Б = 2^36 бит
2. 64 МБ = 2^6 МБ = 2^16 КБ = 2^26 Б = 2^29 Бит
3. 32 МБ = 2^5 Мбит = 2^3 МБ = 2^-7 ГБ = 0,0078125 ~ 0.008 ГБ.
var
i, c, s, n:integer;
Begin
write('Введите n: ');
readln(n);
s:= 0;
c:= 0;
write('Последовательность: ');
while i < n do begin
s:= s + i;
c:= c + 1;
i:= i + 2;
write(i, ' ');
end;
writeln;
writeln('Сумма последовательности: ', s);
writeln('Количество слагаемых: ', c);
END.
Можно сначала найти за сколько скачивается файл, если за секунду качается <span>1536 бит, а потом найти уже размер другого файла, но более рационально увидеть, что в первом случае скорость в 2 раза больше, чем в другом, а раз время скачивания одинаковое, и одна скорость больше другой в 2 раза, то и получается, что 2 файл в 2 раза меньше 1 файла, т.е. получается, что он равен 40 кбайт</span>