• 1)Ввести 2 целых числа ,вычислить их сумму , вывести сумму на экран. Сложение оформить процедурой с параметром по ссылке .
    2)Напишите функцию , которая вычисляет максимальное из 3 чисел . Числа вводятся с клавиатуры.
    язык Паскаль , срочно !!!

Ответы 6

  • паскаль !
    • Автор:

      phoenix
    • 6 лет назад
    • 0
  • Да и первая не решена...
    • Автор:

      larryifcs
    • 6 лет назад
    • 0
  • спасибо !!
  • Пожалуйста. А для "спасибо" есть кнопочка - и писать не надо)))
    • Автор:

      kelly50
    • 6 лет назад
    • 0
  • #include <iostream>#include <algorithm>using std::cin;using std::cout;using std::sort;int arr[3];void min(){    sort(arr, arr+3);    cout << arr[0];}int main(){    for (int i = 0; i < 3; ++i)    {        cin >> arr[i];    }    min();    return 0;}
  • // PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018// Внимание! Если программа не работает, обновите версию!1)procedure Add(a,b:integer; var r:integer);begin  r:=a+bend;begin  var (x,y):=ReadInteger2('Введите два целых числа:');  var z:integer;  Add(x,y,z);  Writeln('Их сумма равна ',z)end.ПримерВведите два целых числа: 18 142Их сумма равна 1602)function Min3(a,b,c:integer):=Min(a,Min(b,c));begin  var (i,j,k):=ReadInteger3('Введите три целых числа:');  Writeln('Минимальное равно ',Min3(i,j,k))end.ПримерВведите три целых числа: 35 -4 41Минимальное равно -4
    • Автор:

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

Войти через Google

или

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

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

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