Нужно написать ПОЛНУЮ программу от program до end. Четырем классам необходимо убрать поле площадью F га. Сколько га надо убрать каждому классу, если количество человек в классах различно.
Можно быстро сообразить, какой будет ответ, при кругов Эйлера.
Всего есть 2^6 = 64 возможных комбинаций входных параметров и, соответственно, в таблице 64 строки. Изобразим области истинности выражений A и B. Область истинности выражения A + -B – это объединение области истинности A и области ложности выражения B; область истинности изображена на рисунке зелёным цветом.
Чтобы в закрашенную область попало как можно больше элементов, в незакрашенной области элементов должно быть как можно меньше. В данном случае ничего не мешает тому, чтобы в незакрашенной области вообще не было элементов, при этом все 5 элементов в области истинности B должны одновременно быть и в области истинности A. При этом в область истинности выражения A + -B входят все 64 элемента, максимально возможное число единиц равно 64.
Var i, n:integer; b:array[1..3] of integer;begin write('Type integer: '); readln(n); if n<0 then n:=-n; // уничтожение знака числа repeat i:= i + 1; b[i] := (n mod 10); // вывод последней цифры числа n:= n div 10; // удаление последней цифры числа until n=0; if b[3] > b[2] thenwriteln('Цифра сотен больше десятков ',b[3] - b[2])elsewriteln('Цифра сотен меньше десятков ',b[2] - b[3]);if b[2] > b[1] thenwriteln('Цифра десятков больше единиц ',b[2] - b[1])elsewriteln('Цифра десятков меньше единиц ',b[1] - b[2]);end.
Var p1,p2,p3,p4:integer;
f,s: real;
Begin
write('Введите площадь в Га:');
read(f); //f--сколько всего Гектар
write('Количество учеников в 1 классе ');
read(p1); //p1--учеников в 1 классе
write('Количество учеников в 2 классе ');
read(p2); //p2--учеников в 1 классе
write('Количество учеников в 3 классе ');
read(p3); //p--3учеников в 1 классе
write('Количество учеников в 4 классе ');
read(p4); //p4--учеников в 1 классе
s := f / (p1 + p2 + p3 + p4); //s для 1 человека
writeln('Для 1 класса ', s * p1 : 2:1, ' га.');
writeln('Для 2 класса ', s * p2 : 2:1, ' га.');
writeln('Для 3 класса ', s * p3 : 2:1, ' га.');
writeln('Для 4 класса ', s * p4 : 2:1, ' га.');
End.
Объяснение: ну как так можно быть таким глупым ОДНОКЛАССНИКАМ АНТОН