М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
inkarmukash
inkarmukash
05.09.2021 06:25 •  Информатика

4. калорийность обеда 1. продумайте структуру и создайте таблицу (в программе microsoft excel) для решения следующей : из одного грамма углеводов человек получает 4,1 ккал, из одного грамма жиров — 9,3 ккал, из одного грамма белков — 4,2 ккал. порция борща со свежей капустой содержит 3,6 г белков, 12 г жиров и 24 г углеводов. порция гуляша — 24,3 г белков, 24 г жиров, 7 г углеводов. порция картофеля с маслом — 2,7 г белков, 7 г жиров и 39 г углеводов. порция компота из свежих фруктов содержит 0,4 г белков, 36 г углеводов, не содержит жиров. сколько энергии вы получите: 1) отдельно из белков, жиров и углеводов, содержащихся в каждом блюде; 2) из каждого блюда; 3) отдельно из белков, жиров и углеводов, входящих в обед; 4) из всего обеда? 2. введите необходимые формулы и проведите по ним расчеты. 3. сохраните таблицу в собственной папке под именем калорийность. информатика 7 класс

👇
Ответ:
artem874
artem874
05.09.2021
Посмотрите прикрепленный файл
4,8(79 оценок)
Открыть все ответы
Ответ:
albgon4arowa20
albgon4arowa20
05.09.2021
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=8;
  var a:=new real[n,n];
  var k:=1;
  for var i:=0 to n-1 do
    for var j:=0 to n-1 do begin
      if i.IsEven then a[i,n-1-j]:=k
      else a[i,j]:=k;
      k+=1
      end;
  a.Println(3,0)
end.

Результат
  8  7  6  5  4  3  2  1
  9 10 11 12 13 14 15 16
 24 23 22 21 20 19 18 17
 25 26 27 28 29 30 31 32
 40 39 38 37 36 35 34 33
 41 42 43 44 45 46 47 48
 56 55 54 53 52 51 50 49
 57 58 59 60 61 62 63 64
4,4(10 оценок)
Ответ:
SofiAll
SofiAll
05.09.2021

Объяснение:

1

program Middle;

var

  mid, x1,x2,x3 : integer;

begin

   write('input x1, x2, x3 ');

   readln(x1,x2,x3);

   if x1 < x2  

   then    if x1 < x3

           then    if x2 < x3

                   then mid := x2

                   else mid := x3

           else    mid := x1

   else    if x1 > x3

           then    if x2 < x3

                   then mid := x3

                   else mid := x2

           else    mid := x1;

   writeln ('Middle is ',mid);

end.

2

program pifagor;

var

   Cat1, Cat2, Hyp, Space : real;

begin

   write ('Cat1, Cat2 :');

   Readln (Cat1, Cat2);

   Hyp := sqrt (sqr(Cat1)+sqr(Cat2));

   Space := (Cat1 * Cat2)/2;

   WriteLn ('By Cat1 =',Cat1:5:2,' and Cat2 = ',Cat2:5:2,' Hyp is: ',Hyp:5:2, ' Space is: ',Space:5:2);

end.

4,8(50 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ