Вэлектронную таблицу занесли данные о калорийности продуктов. ниже первые несколько строк таблицы. фото тут - () в столбце a записан продукт; в столбце b – содержание в нём жиров; в столбце c – содержание белков; в столбце d – содержание углеводов и в столбце е – калорийность этого продукта. всего в электронную таблицу были занесены данные по 1000 продуктам. откройте файл с данной электронной таблицей: /uploads/inner_file/file/9746/table1.xls. после этого ответьте на вопрос: сколько углеводов в продукте с самой большой калорийностью? если продуктов с самой большой калорийностью несколько, то выберите первый в алфавитном порядке.

Var     x,i,y: integer; begin   for i: =1 to 1000 do       begin           x: = i mod 7;           if x=0 then               begin               y: =y+1;               writeln (i); //строка выводит все числа кратные семи. она подлежит удалению             end;         end;   writeln (y); end.

# Первый цикл поднимет a на 3, второй и третий на 0, 4-й на 2.

a = 1

for i in range(3):

   a += 1

   '''print(f'[for i in range(3) > RANGE][a = {a}]')'''

print(f'[for i in range(3) > TOTAL][a = {a}]')

a = 1

for i in range(3, 1):

   a += 1

   '''print(f'[for i in range(3, 1) > RANGE][a = {a}]')'''

print(f'[for i in range(3, 1) > TOTAL][a = {a}]')

a = 1

for i in range(1, 3, -1):

   a += 1

   '''print(f'[for i in range(1, 3, -1) > RANGE][a = {a}]')'''

print(f'[for i in range(1, 3, -1) > TOTAL][a = {a}]')

a = 1

for i in range(3, 1, -1):

   a += 1

   '''print(f'[for i in range(3, 1, -1) > RANGE][a = {a}]')'''

print(f'[for i in range(3, 1, -1) > TOTAL][a = {a}]')