Дан фрагмент электронной таблицы в двух режиме отображения формул и отображения значений предполагается что в диапазоне а1: е1 нет пустых ячеексумма(а1: в1) 12сумма(д1: е1) 7срзнач (а1: е1) 5в ячейке а1 может находится значение..

{треугольник задан координатами вершин (x1; ; ; y3). найти площадь треугольника (используя формулу герона) } uses crt; var x1,x2,x3,y1,y2,y3,a,b,c,s,p : real; begin clrscr; write('x1='); readln(x1); write('y1='); readln(y1); write('x2='); readln(x2); write('y2='); readln(y2); write('x3='); readln(x3); write('y3='); readln(y3); a: =sqrt(sqr(x1-x2)+sqr(y1-y2)); b: =sqrt(sqr(x2-x3)+sqr(y2-y3)); c: =sqrt(sqr(x3-x1)+sqr(y1-y3)); p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); write('s=',s); readln; end. формула герона! а так я думаю эти даже не сложные, только формулы надо ! периметр- это сумма всех сторон например begin writteln( 'введите 3 стороны' ) ; readln(a,b,c); writeln(' периметр = ',a+b+c); readln; end. вот и ! удачи!

Var   n: integer;   s: string; begin   write('задайте свой вопрос: ');   read(s);   if s='какая будет погода? ' then   begin       randomize;       n: =random(100)+1;       case n of       1..30: writeln('дождь');       31..80: writeln('ясно');       else writeln('пасмурно')       end;   end   else writeln('у меня нет ответа') end. пример работы программы задайте свой вопрос: какая будет погода? ясно