Предмет: Информатика,
автор: 11marta2005
Помогите пожалуйста!! Срочно!! По представленной блок - схеме Составьте программу вычесления функции у при заданном значении с клавиатуры значении х.
Приложения:
anonim737373:
а где задание?
Ответы
Автор ответа:
1
var x: integer; y: real;
begin
readln(x);
If x<=-10 then
y:=x*x+25-x
else If (-10<x) and (x<=10) then
y:=3+x
else y:=1/x;
writeln(y);
end.
Похожие вопросы
Предмет: Физкультура и спорт,
автор: bogdanrogalik
Предмет: Математика,
автор: kravchuknikol85
Предмет: Английский язык,
автор: clashart90
Предмет: Математика,
автор: PavelJordan
Предмет: Химия,
автор: МайнкрафтерМихаил