<em>PascalABC.NET 3.2</em>
uses GraphABC;
begin
var xc:=300;
var yc:=250;
var r:=150;
var dx:=Trunc(r*cos(Pi/3));
var dy:=Trunc(r*sin(Pi/3));
Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
(xc-dx,yc+dy),(xc+dx,yc+dy));
r:=r-10;
dx:=Trunc(r*cos(Pi/3));
dy:=Trunc(r*sin(Pi/3));
Pen.Color:=clRed;
Brush.Color:=Pen.Color;
Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
(xc-dx,yc+dy),(xc+dx,yc+dy));
Font.Color:=clWhite;
Font.Size:=50;
Font.Style:=fsBold;
SetCoordinateOrigin(xc-90,yc-40);
Write('STOP');
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>
Кафе-чай, закусочная-ряженка...или наоборот...
Назначение помогать людям за зверями . Команды :напоминать когда кормит , играть(может делать все сам) Это задание на воображение подумай)
Нашел 2 ошибки в 4- строке и 7- строке, объясняю на примере а=15, b=26
как я понял по данным задачи К больше или равно А то есть начальное значение S = A, вторую ошибку можно решить просто поменяв местами операторы 7-ой и 8-ой строки(чтобы сначала программа суммировала S=15+15 а потом уже 30+16,46+18...пока S<B а в задаче делается так 16+1,16+17, 30+18,...) в общем:
var a, b, s, k: integer;begin
read(a,b);
s := a;<-----
k := a;
while s < b do begins := s+k;<------k := k+1;<----end;writeln(k)end.
если
a=15 b=36
ответ будет :15