Begin
var e: double;
var s1: double;
var s2: double;
var x: double;
var step: integer;
readln(x);
e := 0.0001;
s1 := 1;
step := 3;
s2 := (1 + x) / (1 - x) / (1 - x);
while abs(s1 - s2) > e do begin
s1 := s1 + (1 + 2*step)/power(x, step);
end;
writeln(s1);
writeln(s2);
writeln(s1 - s2);
end.
Расставь правильно скобки в условии, я исправлю решение.
Var a,b,c:real;
begin
read(a, b, c);
writeln(max(a,max(b,c)));
end.
или
var a,b,c:real;
begin
read(a, b, c<span>);
</span>if (a>=b) and (a>=c) then write(a)
else if (b>=a) and(b>=c) then write(b) else write(c);
end.
4-х цветное кажется это 2 бита, 10*10 это 100.
2*100=200битов=25байтов
" из 2056 символов в кодировке Unicode " это уже 2кб * 2-3 байта, в зависимости от ПК.
Конечно текст раз в сто больше рисунка.
1. 40000 Бит = 5000 Байт = 5 КБ
2. 12288 Бит = 1536 Байт = 1.536 КБ
3. 2^22 Бит = 2^19 Байт = 2^19 * 10^(-3) КБ
4. 2^7 * 10^3 Бит = 2^4 * 10^3 Байт = 2^4 КБ
5. 2^17 Бит = 2^14 Байт = 2^14 * 10^3 КБ
В принципе эти степени можно и посчитать, только будут очень большие числа.
Суть:
1 кбайт = 1000 байт = 8000 бит