Спо программированию , надо решить не по паскалю , а просто . 1)треугольник задан длинами своих сторон.найти длины его медиан 2)известны координаты двух смежных вершин квадрата .найти его площадь и периметр

Скорее всего тебе необходимы алгоритмы для решения таких задач, они изображаются графически. Прикреплены два файла с этими алгоритмами.

Овалами обозначаются начало и конец алгоритмаТрапеция обозначаются ввод и вывод данныхПрямоугольниками обозначаются блоки где производятся расчеты

Для первой задачи алгоритм прост:

Ввод длины стороны AВвод длины стороны BВвод длины стороны CРасчет длины медианы к стороне AРасчет длины медианы к стороне BРасчет длины медианы к стороне CВывод длины медианы к стороне AВывод длины медианы к стороне BВывод длины медианы к стороне C

Для второй задачи:

Ввод X координаты для первой точкиВвод Y координаты для первой точкиВвод X координаты для второй точкиВвод Y координаты для второй точкиРасчет по формуле расстояния между двумя точками - получаем сторону квадратаРасчет площади квадратаРасчет периметра квадратаВывод значения площади квадратаВывод значения периметра квадрата

program
var
s: string;
a:array[1..4] of integer;
i:integer;
begin
 read(s);
 for i:=1 to 4 do a[i]:=0;
 
 for i:=0 to length(s) do
 begin
    if s[i]=')' then inc(a[1]);
    if s[i]='(' then inc(a[2]);
    if s[i]='!' then inc(a[3]);
    if s[i]='.' then inc(a[4]);
 end;
 
 if(a[1]>a[2])and(a[1]>a[3])and(a[1]>a[4]) then write('Funny')else
 if(a[2]>a[1])and(a[2]>a[3])and(a[2]>a[4]) then write('Sad') else
 if(a[3]>a[2])and(a[3]>a[1])and(a[3]>a[4]) then write('Angry') else
 if(a[4]>a[2])and(a[4]>a[3])and(a[4]>a[1]) then write('Deep') else
    write('Unclear');

end.

program
var
s: string;
a:array[1..4] of integer;
i:integer;
begin
 read(s);
 for i:=1 to 4 do a[i]:=0;
 
 for i:=0 to length(s) do
 begin
    if s[i]=')' then inc(a[1]);
    if s[i]='(' then inc(a[2]);
    if s[i]='!' then inc(a[3]);
    if s[i]='.' then inc(a[4]);
 end;
 
 if(a[1]>a[2])and(a[1]>a[3])and(a[1]>a[4]) then write('Funny')else
 if(a[2]>a[1])and(a[2]>a[3])and(a[2]>a[4]) then write('Sad') else
 if(a[3]>a[2])and(a[3]>a[1])and(a[3]>a[4]) then write('Angry') else
 if(a[4]>a[2])and(a[4]>a[3])and(a[4]>a[1]) then write('Deep') else
    write('Unclear');

end.