на Pascal
program noname;
uses crt;
const
t=10;
var
a:array[1..t] of byte;
i,k:byte;
x,n:integer;
r:real;
begin
clrscr;
randomize;
x:=1; k:=0; n:=0;
for i:=1 to t do begin
a[i]:=random(20-1+1)+1;
if (a[i] mod 2=0) then x:=x*a[i]
else begin n:=n+a[i]; k:=k+1; end;
writeln ('a[',i,']=',a[i]);
end;
r:=n/k;
writeln ('произведение элементов с четным значением=', x);
writeln('ср.арифм. элементов с нечетным значением=',r);
end.
Var N: integer; sum: real; begin write('Введите количество чисел: '); readln(N); write('Введите числа: '); sum := 0; for var i := 1 to N do begin var x := ReadReal; sum += x; end; writeln('Сумма введенных чисел = ',sum); end.
Ответ:
Объяснение: Она самая сказочная из всего, что меня окружает." Уже вслух сказал сказочный бегемотик своим сказочным голосом. Как хорошо жить в сказочном мире!
А, С. Тип написать надо побольше. Привет, как дела?
Маска устроена так, что сначала идут единицы, а потом нули.
Пример маски: 1111111000.
Адрес сети это поразрядная конъюнкция ip адреса и маски.
Видно, что у маски начались нули в четвертом байте слева.
раскладывая числа 28 и 0 в двоичную систему находим, что 3 единицы плюс ещё 24 => Ответ 27.