Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Помогите с информатикой(паскаль)
1) написать программу, определяющую принадлежность числа A интервалу [-5;25] (включительно).
2) написать программу для вычисления таблицы значений функции y=4x^2+5x-10 на отрезке [-9;9] c шагом h=3.

Ответ оставил Гость

1.
var a:real;
begin
 write(Vvedite chislo);
 readln(a);
if ((a>=-5) and (a<=25)) then write(chislo vhodit v interval [-5;25]) 
 else write(chislo ne vhodit v interval [-5;25]);
end.

2.
var h:integer;
y:real;
begin
h:=-9;
 while (h<=9) do  
  begin
   y:=4*h*h+5*h-10;
   h:=h+3;
   writeln(y);
   end;
end.