Type student=record
familia:string;
nomer:byte;
yspevaemosti:array[1..5] of integer;
end;
Program formula
var
x,y,z:integer;
begin
t:=0.5;
z:=6;
y:=t+2*z;
x:=(3*(y*y))/(4*z-2*(t*t));
writeln (x);
end.
Непонятно, что означает "дополнительный" стакан молока... т.е. есть еще основная порция молока? Если так, то (смотри файл) в столбец "основное молоко" надо добавить значения. Если нет, то этот столбец вообще убрать и посчитать итог по столбцу "дополнительное молоко".
И, да, значения все, естественно, с потолка... Сами введите, какие нужно.
Твой пример=0*2+1*2+0*2+1*2+0*2+1*2=0+2+0+8+0+32=42(10)
ответ точно правильный у меня 5)