Предмет: Информатика,
автор: k305
ОЧЕНЬ СРОЧНО!! ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ!!
Приложения:
micro2002:
жди
есть проверки?
begin
var x := ReadReal();
var y := x <= -70 ? x * x + 50 :
(x > -70) and (x <= 0) ? 7 * Abs(x) :
3 * (x * x + 1);
Print(y)
end.
var x := ReadReal();
var y := x <= -70 ? x * x + 50 :
(x > -70) and (x <= 0) ? 7 * Abs(x) :
3 * (x * x + 1);
Print(y)
end.
Спасибо всем большое!!
Ответы
Автор ответа:
1
uses crt;
var x, y:real;
begin
read(x);
if x<=-70 then
y:=x*x+50
else
if (-70<x) and (x<=0) then
y:= abs(x)
else
y:=3*(x*x+1);
writeln(y);
end.
Спасибо
Интересные вопросы
Предмет: Геометрия,
автор: burbiloviktoria39
Предмет: История,
автор: sasha3028
Предмет: Математика,
автор: qescsgo
Предмет: Геометрия,
автор: bseviil