Const n = 20;
<span>var a: array[1..n] of integer;
</span><span> i,k,minel: integer;
</span><span>begin
</span><span>//заполнение массива
</span><span>//и вывод массива на экран
</span><span> randomize;
</span><span> writeln('элементы массива:');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(50)-30;
</span><span> write(a[i],' ');
</span><span> end;
</span><span> writeln;
</span><span>//обработка массива и вывод на экран
</span><span> minel:=a[1];
</span><span> for i:=2 to n do
</span><span> if (a[i]<minel) and (abs(a[i]) mod 2 > 0) then
</span><span> begin
</span><span> minel:=a[i];
</span><span> k:=i;
</span><span> end;
</span><span> writeln('номер элемента: ',k,' значение: ',minel);
</span><span>end.
</span><span>
</span>
<span>var n:integer;
begin
write('n = ');
readln(n);
if abs(n) div 100 = abs(n) mod 10
then writeln('Перевертыш') else writeln('Не перевертыш');
end<span>.
Пример:
</span><span>n = 121
Перевертыш</span></span>
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>
Если a больше или равно 1 и b больше или равно 2, то мы складываем эти числа и инициализируем n со значением 3. Потом выводим значение переменной n, следовательно, на экран будет выведено число 3.
