Var a,b: integer;
<span>begin
</span><span> write('a b через пробел: ');
</span><span> readln(a,b);
</span><span> if (((a div 10) mod 10) mod 2 = 0) or
</span><span> (((b div 10) mod 10) mod 2 =0) then
</span><span> begin
</span><span> a:=a*a; b:=floor(sqrt(b));
</span><span> end
</span><span> else
</span><span> begin
</span><span> a:=floor(sqrt(a));
</span><span> b:=b*b;
</span><span> end;
</span><span> writeln('a = ',a,' b = ',b);
</span><span>end.
</span>a b через пробел: 13 54
<span>a = 3 b = 2916
</span>
a b через пробел: 24 16
<span>a = 576 b = 4
</span>
64 · 512 = 2⁶ · 2⁹ = 2¹⁵ бит
32 Кб = 2⁵ Кб = 2⁵ · 1024 = 2⁵ · 2¹⁰ = 2¹⁵ байт = 2¹⁵ · 8 = 2¹⁵ · 2³ = 2¹⁸ бит
2¹⁸ = i · 2¹⁵
i = 2¹⁸ / 2¹⁵ = 2¹⁸⁻¹⁵ = 2³ = 8 бит на каждый цвет
<h2>Ответ</h2>
256
Только что созданный текстовый файл получил расширение txt
10 минут= 600 секунд
1 Кбайт= 1024 байта
1024 * 8 =8192 бита
8192/600=13 бит/с