Program Ranea15Ranea_1; uses crt; var i,p:integer; begin writeln('*** Alphaues is thinking... ***'); p:=1; for i:=-10 to 20 do p:=p*i; writeln('Модуль произведения чисел от -10 до 20 равен ',abs(p)); end.
Program Ranea15Ranea_2; uses crt; const n=20; var a:array [1..n] of integer; i,pos:integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln(); randomize; {заполняем массив} for i:=1 to n do begin a[i]:=random(101)-50; write (a[i]:4); end; writeln(); {ищем положиетельные элементы, заменяем их нулями, и считаем их количество} pos:=0; for i:=1 to n do begin if a[i]>0 then begin a[i]:=0; pos:=pos+1; end; end; {выводим результат} writeln(); writeln(' Заменено ',pos,' положительных элементов'); end.
Пошаговое объяснение:
1) 123/800 >1/8
приведем к единому знаменателю обе стороны неравенства .Это будет 800.Домножим 1/8 на 100
(1*100)/(8*100)=100/800
123/800 > 100/800, а значит
123/800 > 1/8
2) 361/6000 < 1/15
общий знаменатель 6000. Домножим 1/15 на 400
(1*400)/(400*15)=400/6000,
361/6000 < 400/6000, а значит
361/6000 < 1/15
3) 43/1575 > 17/630
Наименьшее общее кратное НОК(1575 ; 630)= 3150
3150:1575=2, домножим 43/1575 на 2
3150:630=5, домножим 17/630 на 5
(43*2)/(1575*2)=86/3150
(17*5)/(630*5)= 85/3150
86/3150 > 85/3150, а значит
43/1575 > 17/630