Задание 2.
1. 6 записей
2. 12 записей
3. 9 записей
4. 5 записей
Задание 3.
ответ: 175 (смотреть фото)
Задание 4.
Для начала необходимо узнать вес изображения:
Расчёт делается по двум формулам. V = i × k, где V - вес изображения, i - глубина цвета, k - количество пикселей в изображении.
V = 2 × (512 × 200) = 204800 байт, тогда 10 изображений будут:
204800 × 10 = 2048000 байт
Переведём все числа к одной единице измерения:
512000 бит/с ÷ 8 = 64000 байт/с
Узнаем количество секунд для передачи изображений:
2048000 ÷ 64000 = 32 секунды
1)
Объяснение:
Var
a,b,c: integer;
Begin
Writeln('ВВЕДИТЕ ЧИСЛО a ');
Readln(a);
Writeln('ВВЕДИТЕ ЧИСЛО b ');
Readln(b);
Writeln('ВВЕДИТЕ ЧИСЛО c');
Readln(c);
If ((a<b)AND(a<c)) then
Writeln( ' Наименьшее число a = ' , a);
If ((b<a)AND(b<c)) then
Writeln( ' Наименьшее число b = ' , b);
If ((c<a)AND(c<b)) then
Writeln( ' Наименьшее число c = ' , c);
end.
2)
a,b: integer;
Writeln('ВВЕДИТЕ ЧИСЛО a');
Writeln('ВВЕДИТЕ ЧИСЛО b');
If ((a mod 2 = 0 )AND(b mod 2 = 0)) then
Writeln('СУММА ЧЕТНЫХ ЧИСЕЛ = ' , a+b)
Else
Writeln( 'Два числа не являются четными ' );
Задание 2.
1. 6 записей
2. 12 записей
3. 9 записей
4. 5 записей
Задание 3.
ответ: 175 (смотреть фото)
Задание 4.
Для начала необходимо узнать вес изображения:
Расчёт делается по двум формулам. V = i × k, где V - вес изображения, i - глубина цвета, k - количество пикселей в изображении.
V = 2 × (512 × 200) = 204800 байт, тогда 10 изображений будут:
204800 × 10 = 2048000 байт
Переведём все числа к одной единице измерения:
512000 бит/с ÷ 8 = 64000 байт/с
Узнаем количество секунд для передачи изображений:
2048000 ÷ 64000 = 32 секунды
1)
Объяснение:
Var
a,b,c: integer;
Begin
Writeln('ВВЕДИТЕ ЧИСЛО a ');
Readln(a);
Writeln('ВВЕДИТЕ ЧИСЛО b ');
Readln(b);
Writeln('ВВЕДИТЕ ЧИСЛО c');
Readln(c);
If ((a<b)AND(a<c)) then
Writeln( ' Наименьшее число a = ' , a);
If ((b<a)AND(b<c)) then
Writeln( ' Наименьшее число b = ' , b);
If ((c<a)AND(c<b)) then
Writeln( ' Наименьшее число c = ' , c);
end.
2)
Var
a,b: integer;
Begin
Writeln('ВВЕДИТЕ ЧИСЛО a');
Readln(a);
Writeln('ВВЕДИТЕ ЧИСЛО b');
Readln(b);
If ((a mod 2 = 0 )AND(b mod 2 = 0)) then
Writeln('СУММА ЧЕТНЫХ ЧИСЕЛ = ' , a+b)
Else
Writeln( 'Два числа не являются четными ' );
end.