4. калорийность обеда 1. 4. калорийность обеда 1. продумайте структуру и создайте таблицу (в программе - id230717220210908 от kikesee 08.09.2021 12:08

Question

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

kikesee · Accepted Answer

Var
a,i,n,s:integer;

function q (a:integer):integer;
var h,n:integer;
begin
      n:=a;
      h:=0;
      q:=0;
     while n>0 do
     begin
      n:=n div 10;
      h:=h+1;
       end;
       if h = 5 then
        begin
         n:=a div 10000;
          if n=3 then
            if a mod 2 = 0 then
          q:=1;
        end ;
     end;

begin
readln(a);
i:=a;
   while q(i)<>1 do
    begin
    writeln('Error');
   readln(a);
   i:=a;
   q(i);
      end;
      while a>0 do
       begin
        s:=s+a mod 10;
        a:=a div 10;
       end;
      writeln(s);   end.

MOGZ ответил