//Pascal ABC.NET 3.1 сборка 1256
uses
GraphABC;
Var
n:integer;
procedure square(var n:integer);
begin
readln(n);
rectangle(window.Center.X-n div 2,window.Center.Y-n div 2,window.Center.X+n div 2,window.Center.Y+n div 2);
end;
procedure points(n:integer);
Var
x,y,i:integer;
begin
i:=0;
while i<1000 do
begin
x:=random(window.Center.X-n div 2+1,window.Center.X+n div 2-1);
y:=random(window.Center.Y-n div 2+1,window.Center.Y+n div 2-1);
setpixel(x,y,rgb(random(255),random(255),random(255)));
inc(i);
end;
end;
begin
randomize;
square(n);
points(n);
end.
Double a,b,x,k;
k = ((pow(a+b,3)-cos(x*x))/(tan(x)*exp((-3)*x)+0.00275)+(sqrt(fabs(a+b)))/(<span>pow(sqrt(a+b), 1/3<span>)</span></span>));
var
i1,i2,i3,i4,i5,i6:Longint;
begin
For i1:=0 to 9 do
For i2:=0 to 9 do
For i3:=0 to 9 do
For i4:=0 to 9 do
For i5:=0 to 9 do
For i6:=0 to 9 do
if i1+i2+i3=i4+i5+i6 then Writeln('счастливый билет':i1,i2,i3,i4,i5,i6);
Writeln('все миллионеры :D')
end.
1г углеводы - 4,1 ккал
1 г жиров — 9,3 ккал
1 г белков — 4,2 ккал
<span>----------------------------</span>
<span>Вычесления крайне простые,на пример возмем порцию картлофеля с маслом:</span>
<span>1.</span>
<span>От белков : 2,7г*4,2ккал/г=11.34ккал</span>
<span>От углеводов:39г*4.1ккал/г=159.9ккал</span>
<span>От жиров:7г*9.3ккал/г=65.1ккал</span>
<span>2.Общая калорийность блюда</span>
<span>11.34+159.9+65.1=236.34(кка)</span>
<span>3.Если в обед входят ещё какие блюда то сумируешь их энергетические ценности каждого компонента(б,угл,ж).</span>
<span>4.Суммируешь общую каллорийность блюд .</span>
<span>Здесь главное продумать структуру таблицы .</span>
<span> </span>
