Look7moscow
?>

. Организации выделена сеть класса В: 114.250.0.0/16. Определить маски, количество возможных адресов в подсети и диапазон адресов третьей подсети если число подсетей – 192

Информатика

Ответы

ВладимировнаАлександр1421
Procedure GetAB(x: integer; var a: integer; var b: integer);
begin
    a := 0;
    b := 1;
    while x > 0 do
    begin
        a := a + 1;
        b := b * (x mod 100);
        x := x div 100;
    end;
end;

var
    x, a, b: integer;

begin
    for x := 10000 to 2000000000 do
    begin
        GetAB(x, a, b);
        if (a = 3) and (b = 18) then
            Println(a, b, x);
    end;
end.

выдает такие значения
3 18 10118
3 18 10209
3 18 10306
3 18 10603
3 18 10902
3 18 11801
3 18 20109
3 18 20303
3 18 20901
3 18 30106
3 18 30203
3 18 30302
3 18 30601
3 18 60103
3 18 60301
3 18 90102
3 18 90201
3 18 180101

Выделенное наибольшее
hrim5736

1) program exec;

var a:array[1..20] of integer;

var p,i:integer;

begin

randomize;

for i:=1 to 20 do begin

a[i]:=random(50);

writeln (a[i]);

if (a[i] mod 2<>0) then p:=p+1;

end;

if (p>0) then writeln ('Присутствуют нечётные элементы')

else writeln ('Не присутствуют нечётные элементы');

end.

2) program exec;

var a:array[1..20] of integer;

var p,i:integer;

begin

randomize;

for i:=1 to 20 do begin

a[i]:=random(50);

writeln (a[i]);

if (a[i] mod 2=0) then a[i]:=a[i]+1

else a[i]:=a[i]*2;

end;

writeln ('---'); // разделение двух массивов

for i:=1 to 20 do writeln (a[i]);

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

. Организации выделена сеть класса В: 114.250.0.0/16. Определить маски, количество возможных адресов в подсети и диапазон адресов третьей подсети если число подсетей – 192
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Dmitrievna Lvovich
ananyananar
alplakhota67
Chausmonk4
Сорокина
vova00831
Sergeevich-Drugov1513
vipteatr
missmorozova2
Lesnova_Kiseleva730
sinicin80
matveevaev81
NikolayGoncharov
ss2911
djevgen