• Напишите программу [на Pascal], которая вычисляет минимальное из трёх введённых чисел. Используйте функцию.

Ответы 2

  • // PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!function Min3(a,b,c:real):=Min(a,Min(b,c));begin  var (x,y,z):=ReadReal3('Введите три числа:');  Writeln('Минимальное: ',Min3(x,y,z))end.ПримерВведите три числа: 3.18 -2 5.7Минимальное: -2
    • Автор:

      rubio97
    • 5 лет назад
    • 0
  • function min(x,y:integer):integer;beginif x<y then min:=x else min:=y;end;var a,b,c:integer;beginreadln(a,b,c);writeln('min = ',min(min(a,b),c));end.Пример:8 2 5min = 2
    • Автор:

      alice61
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years