Регистрация
Olegarxi
17.03.2020 05:03
Информатика
Есть ответ 👍

Памогите с задание по информатике ​

176
446
Посмотреть ответы 1

Ответы на вопрос:

tseng7788
tseng7788
4,5(44 оценок)
1var  x,y: real; begin writeln('положительные значения: '); x: =-5;   while x< =5 do   begin   y: =sin(x)+cos(5*x);   if y> 0 then writeln(y);   x: =x+1.2;   end; end.2var  x,y: real; beginwriteln('положительные значения: '); x: =-5;   repeat  y: =sin(x)+cos(5*x);   if y> 0 then writeln(y);   x: =x+1.2;   until x> 5; end.

Популярно: Информатика