Задание 1. В высказываниях выделите простые и обозначьте каждое из них буквой. Запишите с букв и знаков логических операций каждое составное высказывание. Летний дождь

Озеро, взволнованное ветром, шумело у берегов. Трава, не орошённая дождём, сиротливо приникла к земле. Внезапно налетевший ветер быстро затих. Вот медленно приближается огромная свинцовая туча. 1). Она закрывает всё небо и грозно висит над притихшей землёй. 2).Неверно, что озеро уже затихло. 3).Вдруг блеснула яркая молния, но не раздался оглушительный удар грома. 4). Крупный летний дождь зашумел по запылённым листьям деревьев или земля жадно пила бодрящую влагу. 5). На лугах зазеленела освежённая трава, а омытые дождём деревья ярко засверкали нарядной листвой.

1) 1493(10) = 10111010101(2)

Проверка:
10111010101(2) = 1∙2^10+0∙2^9+1∙2^8+1∙2^7+1∙2^6+0∙2^5+1∙2^4+0∙2^3+1∙2^2+0∙2^1+1∙2^0 = 1024+0+256+128+64+0+16+0+4+0+1 = 1493(10)

2) 1493(10) = 2725(8)

Проверка:
2725(8) = 2∙8^3+7∙8^2+2∙8^1+5∙8^0 = 1024+448+16+5 = 1493(10)

3) 1493(10) = 5D5(16)

Проверка:
5D5(16) = 5∙16^2+13∙16^1+5∙16^0 = 1280+208+5 = 1493(10)

P.S. в скобочках указана система счисления, а знак ^ степень числа.

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

Function Sq(a,b,c:real):real;
Var p:real;
Begin
p:=(a+b+c)/2;
result:=Sqrt(p*(p-a)*(p-b)*(p-c))
End;

Function Tr(a,b,c:real):boolean;
Begin
result:=(a+b>c)and(a+c>b)and(b+c>a)
End;

Var
a,b,c,k1,k2,h,t,s,r1,r2:real;
Begin
writeln(' найти радиус или площадь треугольника? если радиус,то нажмите 1. Если площадь, то нажмите 2 ');
readln(k1);
if k1=1 then 

 begin 
 writeln('окружность вписанная(нажмите 1) или описанная(нажмите 2)?');
 readln(k2);

 write('сторона а = ');
 readln(a);
 write('сторона b = ');
 readln(b);
 write('сторона с = ');
 readln(c);
 if Tr(a,b,c) then
  begin
  s:=Sq(a,b,c);

  if k2=1 then 
  begin
  r1:=(a+b+c)/(2*s);
  writeln('радиус вписанной окружности = ' , r1);
  end;

  if k2=2 then 
  begin
  r2:=a*b*c/(4*s);
  writeln('радиус описанной окружности = ', r2);
  end;
  end else WriteLn('Треугольник не существует');
 end
else

 if k1=2 then
 begin
 writeln('что вам известно? если а и h, то нажмите 1. если а,b,с то нажмите 2' );
 readln(k2);
 if k2=1 then
  begin
  write('высота = ');
  readln(h);
  write('cторона = ');
  readln(t);
  s:=1/2*h*t;
  writeln('площадь = ',s);
  end;

  if k2=2 then
  begin
  Write('a = ');
  ReadLn(a);
  Write('b = ');
  ReadLn(b);
  Write('c = ');
  ReadLn(c);
  if Tr(a,b,c) then
   begin
   s:=Sq(a,b,c);
   writeln('площадь = ',s) ;
   end else WriteLn('Треугольник не существует');
  end;
 end;
end.

Пример:
 найти радиус или площадь треугольника? если радиус,то нажмите 1. Если площадь, то нажмите 2 
2
что вам известно? если а и h, то нажмите 1. если а,b,с то нажмите 2
1
высота = 3
cторона = 4
площадь = 6