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

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

Задать свой вопрос
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+bgt;=9 then Writeln('Молодец!')
  else Writeln('Подтянись!')
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт