Рассмотри рисунок жентоса рисовал орнамент после этого ему захотелось на какой-нибудь изображения против часовой стрелки для этого сантос я значения угла наклона изображения в градусах поле по горизонтали в области наклон градусов однако изображения поворачивается по часовой стрелке же нтов исправить ситуацию

Система «Ч-М-С» применяется для анализа условий жизнедеятельности человека и для разработки защитных мер, обеспечивающих безопасность человека. Возможны следующие условия жизнедеятельности:

 

комфортные- условия, когда все элементы системы «Ч-М-С» обеспечивают объективное состояние и субъективное чувство удовлетворения человека при безопасной жизнедеятельности;

некомфортные- условия, когда состояние хотя бы одного из элементов системы «Ч-М-С» существенно отклоняется от нормы;

невыносимые- условия, созданные элементами системы «Ч-М-С», в которых человек не может существовать.

Между комфортными и некомфортными условиями жизнедеятельности существует психологическая граница и человек может при к некомфортным условиям. Между некомфортными и невыносимыми условиями жизнедеятельности существует физиологическая граница, определяемая физиологическими ограничениями для человека, поэтому в невыносимых условиях человек без отрицательных последствий для себя не может существовать вообще или же может, но весьма ограниченное время.

Материал был взят с сайта: https://studfile.net/preview/6388105/page:6/

Замечание. Так как количество вводимых чисел заранее не известно, то откроем бесконечный цикл со всегда верным условием True, но как только будет введено число 0, остановим цикл командой break.

Программа:

program z;
var k,s,x:integer;
begin
k:=0;              {начальное значение количества двузначных чисел}
s:=0;              {начальное значение суммы двузначных чисел}
while True do  {открываем бесконечный цикл}
begin
readln(x);        {вводим число х}
if x=0 then break;  {если введенное число равно 0, то остановить цикл}
if (x>9)and(x<100) then  {если число двузначное, т.е. от 10 до 99} 
    begin 
    k:=k+1;         {количество увеличиваем на 1}
    s:=s+x;         {увеличиваем предыдущее значение суммы на число х}
    end;
end;
if k=0 then writeln('NO')  {если двузначных чисел не было, то вывод NO}
   else writeln(s/k);          {иначе вывод ср.арифметического}
end.