Ответы на вопрос:
Программа в pascal,abc,net var x,y: real; begin write('введите х: '); readln(x); if x< =0 then y: =sin(x)-cos(x) else y: =5*sqr(x)-sqr(sin(x)); writeln('y=',y) end. тестовое решение: введите х: 0.137 y=0.0751931316536888
Var x, y: real; begin write ('введите х: '); readln (x); if x< =0 theny: =sin(x) - cos(x)elsey: =5*x*x-2*sin(x)*sin(x)write(y); readln end.
3
Объяснение:
при первом проходе а=40
при втором a=80
при третьем a= 160 и уже в цикл не входит т.к. условие a<=100 не выполняется
Популярно: Информатика
-
ададсжсжэвжю04.08.2022 05:21
-
aiphone2003227.07.2022 03:36
-
норочка311.04.2020 05:43
-
kurotetsu66603.11.2020 03:46
-
Sasho232519.08.2022 13:48
-
космос6309.09.2021 04:16
-
McShram111122.10.2020 04:21
-
Kisson14.03.2022 17:00
-
oksanademyanov03.02.2022 21:17
-
саранчаа901.11.2022 20:16