Перевести дробное десятичное число в четырехбайтовую ячейку: 224,75

1)

var 

a,b,c: real;

begin

readln(a,b);

c: =180-a-b;

if (a> 90) or (b> 90) or (c> 90) then writeln('тупоугольный')

else

if  (a=90) or (b=90) or (c=90) then writeln('прямоугольный')

else  writeln('остроугольный');

end.

2)

var

v: real;

begin

readln(v);

if v< 7.8 then writeln ('ракета упадет на землю');

if v=7.8 then  writeln ('ракета станет спутником земли');

if (v> 7.8) and (v< =16.4) then  writeln ('ракета останется в пределах солнечной системы'); if (v> 16.4) then  writeln ('ракета покинет пределы солнечной системы');  

end.

я попробывала у меня получилось имя даша

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

s,i: integer ;

sr: real;

begin

  {vvod massiva a}

    for i: = 1 to 100 do

        sr: =sr+a[i];

    sr: = sr/100;

    for i: = 1 to 100 do

        if a[i]> sr then

          s: =s+1;

    writeln(s);

end.

для этого модема нужно: источник питания: через внешний адаптер питания переменного тока 9 в /1a параметры блока питания robiton dn1000: блок питания 1000ма, нестабилизированный выходное напряжение: 3,0 / 4,5 / 6,0 / 7,5 / 9,0 / 12,0 в 12,0 вполне подойдет. даже не нужно заморачиваться правильным подключением +/- т.к. модем питается переменкой. я бы порекомендовал сначала включить бп на 7,5 вольт. если модем будет так работать, то так и оставить. если не работает, переключить на 9 вольт. только ни в коем случае не переключайте выходное напряжение бп, если он подключен к модему! в момент переключения, напряжение на выходе бп может сильно прыгнуть!