Сегодня мы продолжаем работу с темой "Информационная технология работы в табличном процессоре". Выполняем расчёты в табличном процессоре. Вам предстоит решить задачу по расчёту блокадного пайка. Для этого вам надо: 1. Найти в интернете дневную норму выдачи хлеба в блокадном Ленинграде в расчёте на одного взрослого работающего, иждивенца, ребенка. 2. Рассчитать калорийность пайка. 3. Установить соответствие этого пайка современным нормам. 4. Найти и рассчитать калорийность любого доступного в блокаду блюда (например, салат из одуванчиков, щи из крапивы и др.) 5. Суммировать калорийность пайка и выбранного блюда. 6. Установить месячную норму получаемых калорий и дефицит.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Программа для нахождения площади прямоугольникапаскаль)
Автор: Nazaruk_Kodochigov
Постройте таблицу истинности по информатике
Автор: barinovmisha2013
Как в языке паскаль обозначается среднее арифметическое?
Автор: Екатерина
Составить программу f(x)=x-sinx отрезок [0, 3]
Автор: natalyazx151092814
Кчему может отсутствие какого-либо свойства у алгоритма? примеры.
Автор: Стефаниди
2)var t,c:array [1..10] of integer;
i,sum:integer;
begin
for i:=1 to 10 do begin
t[i]:=random(20+i);
c[i]:=random(20000+i);
end;
for i:=1 to 10 do begin
sum:=sum+t[i]*c[i];
end;
for i:=1 to 10 do begin
writeln('Количество товара ',i,' вида ',t[i],' Стоимость товара ',i,' вида ', c[i]);
end;
writeln('Общая сумма ',sum);
end.
3) Мы опишем его так
ves: array [1..31] of real;
4)
var sum,x:real;
n,i:integer;
begin
read(n);
for i:=1 to n do begin
read(x);
sum:=sum+x;
end;
writeln(sum/n);
end.