1) var n, odd, even, i, a: integer;
begin
odd:=0;
even:=1;
writeln ('Введите число N');
read(N);
writeln('Введите N целых чисел');
for i:=1 to N do
begin
read(a);
if (a mod 2 = 0) then even:=even*a
else odd:=odd+a;
end;
writeln('Произведение чётных чисел равно ', even);
writeln('Сумма нечётных чисел равна ', odd);
end.
2)var N, plus, minus, i: integer;
a: real;
begin
plus:=0;
minus:=0;
writeln ('Введите число N');
read(N);
writeln('Введите N чисел');
for i:=1 to N do
begin
read (a);
if(a > 0) then plus:=plus+1;
if (a < 0) then minus:=minus+1;
end;
writeln('Количество положительных чисел равно ', plus);
writeln('Количество отрицательных чисел равно ', minus);
if (plus<minus) then writeln ('Отрицательных больше чем положительных на ', minus-plus);
if (plus>minus) then writeln ('Положительных больше чем отрицательных на ', plus-minus);
if (plus=minus) then writeln ('Количество положительных равно количеству отрицательных');
end.
Дано:
2стр
60строк
i=8бит
найти iбольшую-I
решение:
I=2*60*80=9600бит их надо перевести в байты чтобы потом перевести в килобайты=>9600/8=1200байт=1200*8/1024=9,375кбайт
вроде так)
Var a,s:integer;
begin
writeln ('Введите целое число');
a:=1;
while a<>0 do
begin
readln (a);
s:=a+s;
end;
writeln ('Сумма всех введенных чисел = ', s);
<span>end.</span>
<em><u>Задача 1.</u></em>1. Найдем общее количество точек: 1024 х 768.
2. Переведем 16 бит в байты: 16 / 8 = 2
3. Запишем объем видеопамяти в байтах: 1024 х 768 х 2
4. Переведем объем в мегабайты: (1024 х 768 х 2) / (1024 х 1024 ) = 768 х 2 / 1024 = 1.5
<em><u>Ответ: 1.5 Мб</u></em><em><u>Задача 2.</u></em>1. Определим количество бит, необходимое для отображения 65636 цветов.
Можно вычислить напрямую:
![log_265536=16](https://tex.z-dn.net/?f=log_265536%3D16)
, а можно просто вспомнить, что
![2^{16}=65536](https://tex.z-dn.net/?f=2%5E%7B16%7D%3D65536)
.
2. Переведем найденное количество бит в байты: 16 / 8 = 2
3. Мегапиксель (Мп) - это ровно один миллион пикселей. Поэтому 1.5 Мп - это 1 500 000 пикселей..
4. Вычислим ёмкость в байтах: 1500000 х 2 = 3000000
5. Переведем емкость в мегабайты: 3000000 / (1024 х 1024 ) ≈ 2.86
<em><u>Ответ: примерно 2.86 Мб</u></em>