Очень нужна Записать примеры на языке Паскаль ! В строчку !!!
Алфавит и примеры ниже)!

1)

begin

 var x:=ReadReal;

 Print((Sqr(x)-x+2)/Sqr(x)-5*Sqr(x)+40);

end.

2)

begin

 var (a,b,c):=ReadReal3;

 println((-b+Sqrt(Sqr(b)-4*a*c))/(2*a));

end.

3)

begin

 var x:=ReadReal;

 Println((Cos(2*x))+(Sqr(Sin(5*x))));

end.

4)

begin

 var (a,b,c):=ReadReal;

 Println((abs(1-Sqr(xor)))+(a*b)/c);

end.

5)

begin

 var (x, y, z) := ReadReal3;

 Println((Sin(1.2 * y + 0.5) / z) - (Sqr(Sin(0.02 * x * y)) * (cos(3 * Sqr(z)))));

end.

6)

const

p = 3.14;

begin

 var x,y,w,m,a:integer;

 Println((-2*p*x)/y+(Sin((y/p*a)*(Abs(w/2*m)))));

end.

1г углеводы - 4,1 ккал

1 г жиров — 9,3 ккал

1 г белков — 4,2 ккал

вычесления крайне простые,на пример возмем порцию картлофеля с маслом:

1.

от белков : 2,7г*4,2ккал/г=11.34ккал

от углеводов: 39г*4.1ккал/г=159.9ккал

от жиров: 7г*9.3ккал/г=65.1ккал

2.общая калорийность блюда

11.34+159.9+65.1=236.34(кка)

3.если в обед входят ещё какие блюда то сумируешь их энергетические ценности каждого компонента(б,угл,ж).

4.суммируешь общую каллорийность блюд .

здесь главное продумать структуру таблицы .