В 10А классе 30 учеников. Вот итоги их успеваемости за первое полугодие: неуспевающих нет; отличников — трое; на «4» и «5» закончили полугодие пятеро учеников; три ученика имеют тройки по всем предметам. Известно также, что18 учеников среди оценок за полугодие имеют пятёрки, а 24 ученика среди оценок за полугодие имеют четвёрки. Сколько учеников 10 А класса имеют за полугодие и тройки, и четвёрки, и пятёрки?
// Внимание! Если программа не работает, обновите версию!
a)
begin
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a>b then Writeln('Первое число больше второго')
else
if b>a then Writeln('Второе число больше первого')
else Writeln('Числа равны')
end.
b)
begin
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a<b then Writeln('Первое число меньше второго')
else
if b<a then Writeln('Второе число меньше первого')
else Writeln('Числа равны')
end.