Синформатикой, pascal abc напишите процедуру без функций и сложных операторов, которая cокращает дробь вида m\n, числитель и знаменатель дроби как изменяемые параметры

Procedure CKR(var M,N:integer);
Var d:integer;
Begin
if M>N then d:=N
else d:=M;
While d>1 do
   Begin
   if (M mod d = 0)and(N mod d = 0) then
      Begin
      M:=M div d;
      N:=N div d;
      if M>N then d:=N
      else d:=M
      End;
   d:=d-1
   End;
End;

Var M,N:integer;
Begin
Write('M = ');ReadLn(M);
Write('N = ');ReadLn(N);
CKR(M,N);
WriteLn(M,'/',N);
End.

ответ:

1. если делить так, чтоб в каждом пакете был один апельсин и все фрукты были разделены, то

чс из 3 по 2 * 2! ( чс из 7 по 4) = 210 - разделили все фрукты, и в каждом пакете по 5 фруктов.

2.если делить не все фрукты, но поровну, и чтоб в каждом был 1 апельсин:

(чс из 3 по 2 )* 2! ( чс из 7 по1 + (чс из 7 по 1 ) * ( чс из 6 по 2) + (чс из 7 по 3)* (чс из 4 по 4) ) плюс

(чс из 3 по 2 )* ((чс из 7 по 1)* (чс из 6 по 1) + (чс из 7 по 2)*(чс из 5 по 2) +

(чс из 7 по 3)* (чс из 4 по 3)) = 6* ( 7+105+35) + 3* (42+210+140) = 2058 способов.

ответ: южно-казахстанская область является одним из крупных регионов республики и граничит на востоке с жамбылской областью, на севере - с карагандинской, на западе - с кызылординской областью и на юге - с узбекистаном. ее территория - 117,3 тыс.кв.км, здесь проживает около 2,5 млн.человек.

в административно-территориальную структуру области входят 4 области и 4 города районного значения, 11 сельских районов. объем городского населения – 36,8%. областной центр - город шымкент.

регион богат месторождениями полезных ископаемых, таких как барит, уголь, железные и полиметаллические руды, бентонитовые глины, вермикулит, тальк, известняк, гранит, мрамор, гипс, кварцевые пески. по запасам урана область занимает первое место, фосфоритов и железных руд - третье место по республике.

область располагает двумя направлениями железных дорог, общей протяженностью 444,6 км, автомобильными дорогами общего пользования 5,2 тыс.километров, в т.ч. с твердым покрытием - 5,1 тыс. километров.

гражданская авиация работает на линиях протяженностью 27 тыс. км.

областной центр расположен на оси международной магистрали оренбург - ташкент и туркестано-сибирской магистрали. кроме того, имеет удобные связи по автомагистралям: ташкент - шымкент - тараз - алматы и ташкент - шымкент - туркестан - самара.

в промышленности области действуют 182 крупных и средних предприятия, производящих около 2,0 процентов объема промышленной продукции казахстана.

доля отдельных отраслей в общем объеме выпускаемой в области промышленной продукции выглядит следующим образом:

перегонка нефти – 8,9%;

текстильная и швейная промышленность – 4,8%;

производство и распределение электроэнергии, газа и воды – 10,6%;

производство пищевых продуктов и табачных изделий – 38,0%;

производство цветных металлов – 3,6%;

машиностроение – 5,8%;

другие отрасли - 28,3%.

в число наиболее крупных предприятий республики входят: оао «петроказахстан ойл продакс», зао «южполиметалл», оао «шымкентцемент», оао «асбоцемконструкция», оао «шымкентмай», оао «химфарм», тоо «шымкентпиво», зао «джей ти ай сентрал эйжа».

южно-казахстанская область располагает значительным производственно- потенциалом. это один из самых трудоизбыточных регионов казахстана.

объяснение: