Код:
for i:=2 to n-1 do if (a[i-1]<a[i]) and (a[i]>a[i+1]) then writeln(i,<span>' element');
(Источник:</span><span>http://www.programmersforum.ru)
</span>
var a, b, c: real;
begin
read(a, b, c);
writeln('V = ', a * b * c);
writeln('S = ', 2 * (a * b + a * c + b * c));
end.
Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.
Номера 1 и 4.
Маски имеют вид 255.255.255.0, значит под хост выделен последний байт маски, а первые три байта - под адрес сети.
Первые три байта у 1 и 4 IP-адресов одинаковые, значит адрес сети тоже один.
Первыми придумали и изобрели компьютер немцы.