2. Если первый ученик за 1ч может собрать М ведер яблок, 2-й – К ведер, 3-й L ведер, то сколько ведер яблок они соберут за t часов? Сколько ведер яблок они соберут за 4 часа? ​

Відповідь:

БУДУТ 2

Пояснення:

0,5 Мбайт

Объяснение:

V = K * i, где  

V - информационный объём изображения (размер файла, содержащего изображение)

K - количество точек (пикселей)

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

N = 2^i, где  

N - количество цветов в палитре

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

^ - знак степени

Дано:

К = 1024 х 512 = 524 288 пикселей

N = 256

Найти:

V

N = 2^i

256 = 2^i

i = 8 бит (подбор степени)

V = K * i = 524 288 * 8 = 4 194 304 бит

V = 4 194 304 бит = 4 194 304 / 8 = 524 288 байт = 524 288 / 1024 = 512 Кбайт = 512 / 1024 = 0,5 Мбайт

Program TaskA;
Var r1, r2: Integer;
Procedure S(r1, r2: Integer);
Var s: Real;
Begin
If r1 > r2 Then
s := Pi * (r1 * r1 - r2 * r2)
Else
s := Pi * (r2 * r2 - r1 * r1);
WriteLn('Площадь кольца: ', s:5:2);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
S(r1, r2);
ReadLn;
End.

Program TaskA;
Var r1, r2: Integer;
Function S(r1, r2: Integer): Real;
Begin
If r1 > r2 Then
result := Pi * (r1 * r1 - r2 * r2)
Else
result := Pi * (r2 * r2 - r1 * r1);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
WriteLn('Площадь кольца: ', S(r1, r2):5:2);
end.