Помогите! Пожалуйста! Умоляю! Очень надо!ПОЖАЛУЙСТА! Хоть частично! прошу! есть 2 языка
(укр.в.)Оператори програми переставлені в випадковому порядку. Складіть з них
програму для обчислення функції (оператори можна копіювати і вставляти в
середовище програмування).
(рус.в)Операторы программы переставлены в случайном порядке. Составьте из них
программу для вычисления функции (операторы можно копировать и вставлять в
среду программирования).
1)else if (x>= -10) and (x<= 10)
2)else y:=2*x+1;
3)Var x, y: real;
4)if x<-10
5)then y:= 3*x*x*x - x*x
6)Writeln ('y= ', y:4:2); End.
7)then y:= sqrt(10-x)
8)Program Fynksija;
9)Begin
10)Write ('x= ');
11)Readln (x)
(укр.в.)Оператори програми переставлені в випадковому порядку. Складіть з них
програму для обчислення функції (оператори можна копіювати і вставляти в
середовище програмування).
(рус.в)Операторы программы переставлены в случайном порядке. Составьте из них
программу для вычисления функции (операторы можно копировать и вставлять в
среду программирования).
1)else if (x>= -10) and (x<= 10)
2)else y:=2*x+1;
3)Var x, y: real;
4)if x<-10
5)then y:= 3*x*x*x - x*x
6)Writeln ('y= ', y:4:2); End.
7)then y:= sqrt(10-x)
8)Program Fynksija;
9)Begin
10)Write ('x= ');
11)Readln (x)
More Questions From This User See All
Answers & Comments
8, 3, 9, 10, 11, 4, 7, 1, 5, 2, 6
Program Fynksija;
var x, y:real;
begin
write('x= ');
readln(x);
if x<-10 then
y:=sqrt(10-x)
else if (x>= - 10) and (x<=10) then
y:=3*x*x*x-x*x
else
y:=2*x+1;
writeln('y= ', y:4:2);
end.