Var
a:array [1..100] of integer;
n,i,s1,s2:integer;
begin
writeln('введите кол-во эл-тов массива');
readln(N);
for i:=1 to n do
begin
read(a[i]);
if i mod 2<>0 then s1:=s1+a[i]
else s2:=s2+a[i];
end;
writeln;
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:7);
writeln('сумма элементов с нечетными номерами',s1);
writeln('сумма элементов с четными номерами',s2);
end.
Смотря сколько цветов. Если в Палитре 256 цветов, то 256 * 4 = 1024 бита памяти. Если не так то поправьте меня.
//Ответ: 133.
//PascalABC.NET
var
i: integer;
begin
i := 0;
while(true) do
begin
if((i mod 7 = 0) and (i mod 3 <> 0) and (i mod 10 = 3)) then break;
i := i + 1;
end;
write(i);
<span>end.</span>
1) 34*16=544 бит (вес сообщения)
2) 12*16=192 бит (то, что приписали)
3) 544+192=736 бит (всего)
Если число четное, то оно кратно 2. Если число кратно одновременно 2 и 7, то оно кратно из произведению, т.е. 14. Первое такое двухзначное число - это само число 14. Остальные будут получаться путем добавления 14, т.е. получаем ряд 14, 28, 42. ...
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(14,99,14).Println
end.
<u>Результат</u>
14 28 42 56 70 84 98
