Предмет: Информатика,
автор: 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.
Интересные вопросы
Предмет: Математика,
автор: polinasssuper
Предмет: Английский язык,
автор: kspiteeri
Предмет: Математика,
автор: qqrnzgpfhqdbtlmj2012
Предмет: Химия,
автор: Mishastrong5534