Введите с клавиатуры числа c и m. если меньшим из них является c, но его значение положительно, найдите и выведите на экран среднее арифметическое значений этих чисел. иначе, найдите и выведите сумму c и m.

Program a3; varb,c,i,m: integer; a: real; beginwriteln('vvedi c'); readln(c); writeln('vvedi m'); readln(m); if c< m then if c> 0 then begin a: =(c+m)/2;   writeln('srednee arifmet = ',a); end; if c> m then writeln('summa = ',c+m); end.

Жарым өткөргүч - өткөргүчтүгү жагынан материал өткөргүчтөр менен диэлектриктердин ортосунда аралык орунду ээлейт жана өткөргүчтөрдөн аралашманын курамынын концентрациясына байланыштуу өткөргүчтүктөн күчтүү көз карандылыгы менен айырмаланат. Жарым өткөргүчтөрдүн негизги өзгөчөлүгү - температуранын жогорулашы менен электр өткөрүмдүүлүгүнүн жогорулашы [1].

Жарым өткөргүчтөр - бул электрондук вольт (eV) тартибиндеги тилке аралыгы бар кристалл заттар. Мисалы, алмазды кенен аралыктагы жарым өткөргүчкө (7 эВт жакын), ал эми арсенидди Индияга - тар боштуктагы жарым өткөргүчкө (0,35 эВ) колдонсо болот. Көпчүлүк жарым өткөргүчтөргө көптөгөн химиялык элементтер (германий, кремний, селен, теллурий, мышьяк ж.б.), эритмелер жана химиялык бирикмелер (галлий арсениди ж. Б.) Кирет.

Var a,b,c,r,s,p: real; begin   write('длины сторон треугольника a,b,c через пробел: ');   readln(a,b,c);   write('радиус круга r: ');   readln(r);   p: =(a+b+c)/2;   s: =sqrt(p*(p-a)*(p-b)*(p-c));   if r> =(a*b*c)/(4*s) then writeln('можно поместить')   else writeln('нельзя поместить'); end.длины сторон треугольника a,b,c через пробел: 3 4 5 радиус круга r: 2.49 нельзя поместитьдлины сторон треугольника a,b,c через пробел: 3 4 5 радиус круга r: 2.5 можно поместить