Решение D4;D7, а те два не входят
Что надо сделать???!!!???!!!
//PascalABC.NET
uses GraphABC;
var c: integer;
begin
window.IsFixedSize := true;//запрет изменения размера экрана
window.Clear(cllightblue);//очистка экрана синим цветом
pen.Color := clred;//меняем цвет пера на красный
for var i := 0 to 19 do//цикл для отрисовки линий
begin
c := (window.Height div 19) * i;//сдвиг линнии по y
line(0, 0 + c, window.Width, window.Height - c);//рисуем линию
end;
end.
В общем, не серчай на качество фотографий
Надеюсь, что общий принцип ты понял
1. Линейный - действия в прямоугольнике
2. С Ветвлением - действия в прямоугольнике, вопрос(условие) в ромбе
3. Цикл - действия в прямоугольнике, условие "Хватит на покупку хлеба?" в ромбе, отрицательная ветвь НЕТ идет вниз к действию "Выпросить у матери или продать почку ради накопления средств на покупку хлеба" в прямоугольнике, от него стрелка идет к действию "Выполнить подсчёт", т.к. после того как ты выпросил деньги у мамки ты подсчитываешь их и идешь снова в условие, если денег хватает (ветвь ДА), то продолжаешь те же самые действия, то есть выходишь на улицу, идешь в магазин и т.д.