Решение приведено в файле приложенном ниже!!!!программа тестировалась и работает
1пн-5уроков.
2- 6уроков
3-7уроков
4-6уроков
5-5уроков
sum m k
0 10 0
11 8 1
10 6 2
9 4 3
8 2 4
7 0 5
далее условие k < 5 не выполняется, выходим из цикла, печатаем значение sum = 7, конец
// PascalABC.NET 3.3.5
begin
var xa, xb, xc, ya, yb, yc: real;
readln(xa, ya, xb, yb, xc, yc);
writeln(abs((xa - xc) * (yb - yc) - (xb - xc) * (ya - yc))/2);
end.
101000=40
10010=18 в классе 58 человек или 111010