63 -> 2в5+2в4+2в3+2в2+2в1+2в0=63
Если маска будет такая:
255.255.255.192 то адресов будет 64
Такая маска:
255.255.255.128 - 128 адресов. Значит нам подойдет этот вариант и в нем 25 единиц.
//Pascal ABC.NET 3.1 сборка 1256
Var
s:string;
a,b:real;
begin
readln(s);
a:=strtofloat(copy(s,1,pos('X',s)-1));
b:=strtofloat(copy(s,pos('=',s)+1,length(s)-pos('=',s)));
if (a=0) and (b=0) then
begin
writeln('X-любое действительное число');
exit;
end
else
if a=0 then
begin
writeln('Нет корней');
exit;
end;
writeln(b/a);
end.
Пример ввода:
-0.1X=10
Пример вывода:
-100
// PascalABC.Net 3.0, сборка 1052
const
nn=100;
var
a:array[1..nn] of integer;
p,s:longint;
i,n:byte;
begin
Write('Введите количество элементов в массиве: '); Read(n);
Writeln('Вводите целочисленные элементы массива через пробел');
s:=0; p:=1;
for i:=1 to n do begin
Read(a[i]);
if i mod 2 = 0 then p:=p*a[i];
s:=s+a[i]
end;
Writeln('Произведение элементов с четными номерами: ',p);
Writeln('Среднее арифметическое элементов: ',s/n)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов в массиве: 10
Вводите целочисленные элементы массива через пробел
-4 6 11 8 12 21 7 13 9 -15
Произведение элементов с четными номерами: -196560
Среднее арифметическое элементов: 6.8