Написать код программы на языке паскаль
(фото выше)
очень надо ​

program Hello;

var x : integer;

begin

 write ('Введите x: ');

 readln(x);

 if x > 3 then

 writeln('ответ: ', -3 * x + 9)

 else  

 writeln('ответ: ', (x*x*x)/((x*x) + 8));

end.

--- PascalABC.NET 3.6.2 ---

begin

 var func1: real -> real := x -> -3*x + 9;

 var func2: real -> real := x -> (x**3)/((x**2) + 8);

 var X := ReadInteger();

 Println(X > 3 ? func1(X) : func2(x));

end.

Пояснение: Тернарный оператор так же является условным, по этому его использование не противоречит условию задания.

56 кбит/с = 56000 бит/с (в скорости предачи данных обычно 1кбит/с = 1000 бит/с )

посчитаем кол-во данных, которые передали за 5 секунд:

56000 бит/с * 5 с = 280000 бит

в обычной кодировке один символ занимает один байт (то есть 8 бит)

посчитаем количество переданных символов текста:

280000 бит / 8 = 35000 символов

1)m(hcl)=50*0.292=14.6г

2)n(hcl)=m/m=14.6/36.5-=0.4моль

3)n(оксида металла)=0,4/2=0,2

4)m(оксида металла)= 8/0,2=40

5)раз металл двухвалентен, то значит формула - meo, следовательно вычти из молярной массы оксида массу кислорода

м(металла)=40-16=24

следовательно, mgo