Var a:array[1..100] of integer; i,p,n:integer; begin writeln('введите количество элементов'); read(n); p:=1; randomize; {случайные числа} for i:=1 to n do {от 1 до n элемента} begin a[i]:=random(100)-50; {случайные числа, можешь указать любые значения} if a[i] mod 4=0 then{если элемент массива делится на 4 с остатком 0} p:=p*a[i]; {умножаем текущее p на этот элемент} end; writeln(p); {выводим произведение} end.
В случае,если в массиве будет число 0, оно будет делится на 4 без остатка, поэтому произведение будет 0. Если это не нужно, то строку if a[i] mod 4=0 then замени на if (a[i]<>0) and (a[i] mod 4=0) then Тогда 0 учитываться не будет.
function summdel(x:integer):integer; //результат - сумма делителей х var k,sum:integer; begin sum:=0; for k := 1 to x div 2 + 1 do if x mod k = 0 then sum:= sum+k; summdel:=sum; end;
begin writeln('Введите границы a,b '); readln(a,b); maxsumm := 1; max := 1; for i := a to b do begin if summdel(i) > maxsumm then begin maxsumm:= summdel(i); max := i; end; end; writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max) end.
Для всех заданий воспользуемся формулой N=2^i? где N -количество цветов, а i -количество бит на 1 пиксель. Задача 1. N=2^4=16 цветов.
Задача 2. N=224=2^i, поскольку для кодирования 128 цветов необходимо 7 бит, а для кодирования 256 цветов -8 бит, выбираем большее число, то есть 8 бит или 1 байт.
Задача 3. 65536 это 2^16⇒требуется 16 бит или 2 байта.
Задача 4. 1. Узнаем общее количество пикселей 1280*1024=1310720 2. Полученное число умножаем на глубину цвета 1310720*32=41943040 бит = 41943040/8 = 5242880 байт = 5242880/1024 = 5120 кб =5120/1024 = 5 Мб ответ: 5 Мб
i,p,n:integer;
begin
writeln('введите количество элементов'); read(n);
p:=1;
randomize; {случайные числа}
for i:=1 to n do {от 1 до n элемента}
begin
a[i]:=random(100)-50; {случайные числа, можешь указать любые значения}
if a[i] mod 4=0 then{если элемент массива делится на 4 с остатком 0}
p:=p*a[i]; {умножаем текущее p на этот элемент}
end;
writeln(p); {выводим произведение}
end.
В случае,если в массиве будет число 0, оно будет делится на 4 без остатка, поэтому произведение будет 0. Если это не нужно, то строку if a[i] mod 4=0 then
замени на if (a[i]<>0) and (a[i] mod 4=0) then Тогда 0 учитываться не будет.