Ответы на вопрос:
var x,y:real; beginread(x); if x<=0 then y:=x+3 else y:=cos(x); write(y);end.
или:
beginvar x := ReadInteger('x:'); Print('y:',x<=0?x+3:cos(x));end.Пример работы:
Популярно: Информатика
-
бебебеяобиделась09.01.2022 07:24
-
pingvik8615.05.2021 20:12
-
Лиса039927.08.2020 11:02
-
СлАдКоЕжКа05102.01.2022 21:29
-
casio00700106.06.2023 21:35
-
FaizTimYr05.02.2020 00:52
-
elitael02.02.2020 00:37
-
ерик1284013.02.2022 16:02
-
Dhffhjh23.03.2021 21:13
-
Egoregoryts21.05.2023 11:37