Запишите 32-битный ip-адрес в виде четырёх десятичных чисел, разделённых точками: 0010 0110 1011 0111 0000 1111 1011 0110

запишем 32-значное двоичное число без лишних знаков. при необходимости добавляем ведущие нули

"00100110101101110000111110110110"

разделим на 4 группы по 8 цифр и переведем их в 10ричную сс

00100110{2} = 38{10}

10110111{2} = 183{10}

00001111{2} = 15{10}

10110110{2} = 182{10}

ip = 38.183.15.182

1

program zadanie1;

var i,n: integer;

a: array[1..4]of integer;

begin

readln(n);

a[1]: =round(int(n/1000));

a[2]: =round(int(n/;

a[3]: =round(int(n/-a[2];

a[4]: =n-a[1]-a[2]-a[3];

if (a[1]: =a[4]) and (a[2]: =a[3]) and (a[3]: =a[2]) and (a[4]=a[1]) then writeln('полином');

end;

 

2

program zadanie2;

var i,n: integer;

a: array[1..3]of integer;

 

function kub(a): integer; begin kub: =a*a*a; end;

 

begin

readln(n);

a[1]: =round(int(n/1000));

a[2]: =round(int(n/;

a[3]: =n-a[1]-a[2]-a[3];

if n*n=kub(a[1])+kub(a[2])+kub(a[3]) then writeln('равенство');

end;

пример на паскале. пусть массив размером 100 элементов

program maasiv;

var a: array[1..100] of real; i,s: integer; k : real;

begin

random;

for i: =1 to 100 do a[i]: =randomize(100)-50; {заполняем массив случайными числами от -50 до 50}

s: =0; for i: =1 to 100 do if a[i]< i then s: =s+a[i]; writeln(s); { а}

s: =0; for i: =1 to 100 do if i/2=int(i/2) then s: =s+a[i]; writeln(s); { б}

s: =0; for i: =1 to 100 do if a[i]< 0 then s: =s+a[i]; writeln(s); { в}

readln(k); s: =0; for i: =1 to 100 do if a[i]> k then s: =s+a[i]; writeln(s); { г}

end.