Прогноз погоды от Непрогнозовой Валентина Непрогнозова случайным образом выводит прогноз погоды по премя эфира на 11 канале: температуру (от -30 до 30), влажность (от 10 до 99%) и скорость ветра (от 0 до 30 метров и секунду). Заядлая дачница Антонина Прокофьевна внимательно следит за прогнозом погоды и делает отметки в своем календаре. Благоприятным днём считаются весенние и осениие дни, когда температура не превышает 20 градусов, и не ниже 10 градусов при влажности в 60-80% и силой ветра до 7 метров в секунду. Летом оптимальная температура - 20-25 градусов при тех же значениях нлажности и силы ветра Определите количество благоприятных дней в году, средние значения температуры, влажности и скорости ветра в каждое время года Формат вывода
Выводится количество благоприятных дней в году
Нужно составить код для
Примичание :понадобится несколько циклов "while",
Зимой нет благоприятных дней
uses GraphABC;
begin
var xc:=300;
var yc:=250;
var r:=150;
var dx:=Trunc(r*cos(Pi/3));
var dy:=Trunc(r*sin(Pi/3));
Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
(xc-dx,yc+dy),(xc+dx,yc+dy));
r:=r-10;
dx:=Trunc(r*cos(Pi/3));
dy:=Trunc(r*sin(Pi/3));
Pen.Color:=clRed;
Brush.Color:=Pen.Color;
Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
(xc-dx,yc+dy),(xc+dx,yc+dy));
Font.Color:=clWhite;
Font.Size:=50;
Font.Style:=fsBold;
SetCoordinateOrigin(xc-90,yc-40);
Write('STOP');
end.