Var a,b,c,d:integer; begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); c:=a; d:=b; if a<b then while b<>1 do begin a:=c*a; b:=b-1; writeln(a); end else while a<>1 do beginb:=d*b; a:=a-1; writeln(b); end; end.
1. запрашиваем первое число 2. получаем первое число 3. запрашиваем второе число 4. получаем второе число 5. приравниваем первое число некоторой переменной. 6. приравниваем второе число некоторой переменной. 7. если первое число больше второго то вычитаем из второго числа 1 и при каждом вычитании приравниваем первое число к произведению первого числа на переменную к которой его приравняли. выводим результат на экран. 8. если второе число больше первого то вычитаем из первого числа 1 и при каждом вычитании приравниваем второе число к произведению второго числа на переменную к которой его приравняли. выводим результат на экран.
Если у маски значение 255, то IP не меняется, т.е первые два байта будут такие же, а именно 224.24. Последний байт у IP адреса будет 0, т.к. при поразрядной конъюнкции на 0 будут 0 в двоичной с.с. Т.е адрес будет 224.24. .0 Осталось найти третий байт. Для этого переведем 254 и 224 в двоичную с.с и поразрядно перемножим 254 = 11111110 224 = 11100000 Если поразрядно их перемножить будет 11111110 11100000 11100000 При переводе этого числа в десятичную - получим 224, значит адрес сети 224.24.224.0
