S:='123456789' s: = '123456789 ' ; удалить (s, 3, 7) delete (s, 3, 5) ;

Запишите в тетради, какое значение будет иметь переменная s после выполнения этого фрагмента программы. Проверьте ответ с компьютера.

Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.

на 1 дереве - 5 

на 2дереве - 7

 

 

видим на рисунке прямоугольник

 

пишем

*длина

*ширина

*координаты центра

*угол поворота

*цвет

*цвет заливки

методы

*площадь

*нарисовать

*повернуть

и тд