№1. периметр треугольника равен р, длина одной стороны равна а, а другой - в. найти длину третьей стороны. №2. длина стороны треугольника равна а, периметр равен р, длины двух других сторон равны между собой. найти эти длины.

Program zadanie_1; var a,b,c,p: real; begin   writeln('формула нахождения p треугольника: p=a+b+c');   writeln('введите значения p,a,b');   readln(p,a,b);   c: =p-a-b;   writeln('c=',c); end. program zadanie_2; var a,b,c,p: real; begin   writeln('формула нахождения p треугольника: p=a+b+c');   writeln('введите значения p,a');   readln(p,a);   b: =(p-a)/2;   c: =b;   writeln('c=',c);   writeln('b=',b); end.  

а)самый большой овал-танцоры

далее-актеры

и самый маленький- певцы 

в) 2 элемента. 

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

 

№5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.