Предмет: Информатика,
автор: 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.
Спасибо
Похожие вопросы
Предмет: Математика,
автор: sarapkinaleksej
Предмет: Математика,
автор: 1zxcursed
Предмет: Математика,
автор: silan4ik86522
Предмет: Математика,
автор: таня2005510