Исходный программный код находится в приложении ниже.
Предполагается, что 1≤n≤92.
Писал на PascalABC.Net v.3.2, сборка 1325 (19.10.2016).
<span>Оно?
var
x, y: integer;
begin
write ('x = ');
readln (x);
if x > 0 then
y := x - 2
else
if x = 0 then
y := 0
else
y := abs (x);
writeln ('y = ', y);
readln
end.</span>
K = int(input())
m = int(input())
n = int(input())
if n<=k:
t = 2*m
elif n*2 % k==0:
t = m*(n*2 // k)
else:
t = m*(1+(n*2 // k))
print(t)
Пример:
2
1
3
3
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>
Uses crt;
var a : array [1..10, 1..10] of integer ;
i,j,n,m:byte;
min,s:integer;
begin
s:=1;
randomize;
writeln('Введи кол-во строк(<10)');
readln(n);
writeln('Введи кол-во столбцов(<10)');
readln(m);
for j:=1 to m do
for i:=1 to n do begin
a[i,j]:=random(100);
gotoxy((i-1)*5+1,j+5);
writeln(a[i,j]);
end;
for i:=1 to m do begin
min:=a[1,i];
for j:=1 to n do if a[j,i]<min then min:=a[j,i];
gotoxy((i-1)*3+1,i+12);
write('min в ',i,' строке равен ',min);
s:=min*s;
end;
gotoxy(1,23);
writeln(s);
<span>end.</span>