Переменная sum после выполнения программы будет равна 2.
Первая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
a:=a + (n mod 10);
n:=n div 10;
end;
end.
Вторая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
if n mod 10>5 then
begin
a:=a + (n mod 10);
end;
n:=n div 10;
end;
end.
225/10 = 22.5 (грамм) соли на 1 кг капусты
350/10=35(грамм) моркови на 1 кг капусты
200/10=20 (грамм) клюквы на 1 кг капусты
4/10=0,4(грам)лавр листа на 1 кг капусты
составим уравнение
22,5*М (грамм) соли на М кг капусты
35*М (грамм) Моркови на М кг капусты
20*М (грамм) клюквы на М кг капусты
0,4*М (грамм) лаврового листа на М кг капусты
В пятом будет под буквой Г