Question

в классе N девочек и M мальчиков. сколько учеников в классе? какой процент девочек и мальчиков?решить в паскале нужно

Answer 1

var n,m:integer;
begin
  write ('Girls: ');
  readln (n);
  write ('Boys: ');
  readln (m);
  writeln ('All pupils: ',n+m);
  writeln ('Procents girls: ',n*100/(n+m));
  writeln ('Procents boys: ',m*100/(n+m));
end.