Pascal:
program z1;
var i, k, n, ch:integer;
begin
n:=0;
ch:=0;
for i:=1 to 15 do
begin
writeln('Input number:');
readln(k);
if(k mod 2=0) then
ch:=ch+1
else
n:=n+1;
end;
writeln('Нечетных было ', n);
writeln('Четных было ', ch);
end.
Не понял с a2, если не квадрат, то позже исправлю
program func;
var
a, b: integer;
z: real;
begin
writeln('Введите a и b');
readln(a,b);
if a=0 then
writeln('Решения нет')
else if a<>0 then
begin
z:=((Sqr(a)-b)/(a-1));
writeln('z=',z);
end;
end.
<em>// PascalABC.NET 3.2, сборка 1504 от 09.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),0,99); a.Println;
var s:=a.Partition(x->x.IsEven);
if s[0].Count<=s[1].Count then Writeln(s[0].Min)
else Writeln(s[1].Min)
end.
<u>Примеры</u>
n= 9
33 43 60 94 5 19 84 58 6
5
n= 10
54 55 71 65 79 88 71 98 8 71
8
Var n,s,i:integer;
begin
write('N='); readln(n);
s:=0;
for i:=1 to n do s:=s+2*i-1;
writeln('S=',s,' N^2=',n*n);
<span>end.</span>
Ответ:
255.255.128.0
Объяснение:
Оба адреса совпадают первыми 2 октетами (42.173) - это означает, что начало маски точно 255.255
далее необходимо сравнить 3 октеты
137 - 10001001
237 - 11101101
При побитовом AND получится 10001001, т.е. 3 октет в маске будет 10000000 - 128. Четвертый октет будет 0