Question

Информатика!!!
1.Напишите программу нахождение максимального среди трёх чисел.
2.Вводятся оценки за контрольные работы по физике и математике,выведите на экран молодец,если их сумма равна или более 9,иначе подтянись.

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var (a,b,c):=ReadReal3('Введите три числа через пробел:');
  Writeln('Максимальное число ',Max(a,Max(b,c)))
end.

№2

begin
  var (a,b):=ReadInteger2('Введите две оценки через пробел:');
  if a+b>=9 then Writeln('Молодец!')
  else Writeln('Подтянись!')
end.