код ниже
Объяснение:
var S,N1,N2 : integer;
begin
write('Введите площать поля: ');
readln(S);
writeln('Введите кол-во учеников:');
write(' в первом классе : ');
readln(N1);
write(' во втором классе : ');
readln(N2);
writeln();
writeln('Первому классу необходимо убрать площадь ', (S-N1*(S/(N1+N2;
writeln('Второму классу необходимо убрать площадь ', (S-N2*(S/(N1+N2;
end.
код ниже
Объяснение:
var S,N1,N2 : integer;
begin
write('Введите площать поля: ');
readln(S);
writeln('Введите кол-во учеников:');
write(' в первом классе : ');
readln(N1);
write(' во втором классе : ');
readln(N2);
writeln();
writeln('Первому классу необходимо убрать площадь ', (S-N1*(S/(N1+N2;
writeln('Второму классу необходимо убрать площадь ', (S-N2*(S/(N1+N2;
end.