Держи ;)
Var year,s,y,o:integer; old,young,name,nation:string;
Begin
s:=0;
o:=0;
y:=200;
While (s=0) do
Begin
Write('Введите имя и фамилию участника. Если список окончен, напишите "конец": ');
Readln(name);
If (name='конец') then break;
Write('Введите национальность участника: ');
Readln(nation);
Write('Введите возраст участника: ');
Readln(year);
If (year > o) and (nation='русский') then
Begin
o:=year;
old:=name;
end;
If (year < y) and (nation='русский') then
Begin
y:=year;
young:=name;
end;
end;
Write('Самый молодой русский участник - ',young,', самый старый русский участник - ',old);
End.
1г углеводы - 4,1 ккал
1 г жиров — 9,3 ккал
1 г белков — 4,2 ккал
Вычесления крайне простые,на пример возмем порцию картлофеля с маслом:
1.
От белков : 2,7г*4,2ккал/г=11.34ккал
От углеводов:39г*4.1ккал/г=159.9ккал
От жиров:7г*9.3ккал/г=65.1ккал
2.Общая калорийность блюда
11.34+159.9+65.1=236.34(кка)
3.Если в обед входят ещё какие блюда то сумируешь их энергетические ценности каждого компонента(б,угл,ж).
4.Суммируешь общую каллорийность блюд .
Здесь главное продумать структуру таблицы .
print(int('1'*123)**2)