![Seurach](https://sproshu.net/uploads/ava/1/ava3674.jpg)
Seurach
6 год назад
Получите на экране компьютера изображение ёлочки (число треугольников не обязательно равно 3) В качестве исходных данных задаются : минимальная длина основания треугольника, максимальная длина основания треугольника, шаг изменения длины основания, высота треугольников
(8 класс, Pascal ABC)
![](https://store.sproshu.net/1/9cac87c99d8.jpg)
ОТВЕТЫ
![Paagpit](https://sproshu.net/uploads/ava/3/ava739.jpg)
Paagpit
Jun 29, 2019
Program demo_1
Begin
Writeln (_ _ _ _ _* _ _ _ _ _);
Writeln (_ _ _ _*_ _* _ _ _ _);
Writeln (_ _ _* * * * * * * _ _ _);
Writeln (_ _ _ _ _* _ _ _ _ _);
Writeln (_ _ _ _*_ _* _ _ _ _);
Writeln (_ _ _ *_ _ _ *_ _ _ _);
Writeln (_ _ _* * * * * * * _ _ _);
Writeln (_ _ _ _ _* _ _ _ _ _);
Writeln (_ _ _ _*_ _* _ _ _ _);
Writeln (_ _ _ *_ _ _ *_ _ _ _);
Writeln (_ _ _*_ _ _ _*_ _ _ _);
Writeln (_ _ * * * * * * * * _ _ _);
End
Begin
Writeln (_ _ _ _ _* _ _ _ _ _);
Writeln (_ _ _ _*_ _* _ _ _ _);
Writeln (_ _ _* * * * * * * _ _ _);
Writeln (_ _ _ _ _* _ _ _ _ _);
Writeln (_ _ _ _*_ _* _ _ _ _);
Writeln (_ _ _ *_ _ _ *_ _ _ _);
Writeln (_ _ _* * * * * * * _ _ _);
Writeln (_ _ _ _ _* _ _ _ _ _);
Writeln (_ _ _ _*_ _* _ _ _ _);
Writeln (_ _ _ *_ _ _ *_ _ _ _);
Writeln (_ _ _*_ _ _ _*_ _ _ _);
Writeln (_ _ * * * * * * * * _ _ _);
End
46