Умоляю ,Пожалуйста !!!!! Напишите функцию int min (int a, int b, int c, int d) (C/C++),...

Question

Умоляю ,Пожалуйста !!!!!


Напишите функцию int min (int a, int b, int c, int d) (C/C++), static int min (int a, int b, int c, int d) (Java) function min (a,b,c,d: integer):integer (Pascal), находящую наименьшее из четырех данных чисел.

Входные данные
Вводится четыре числа.

Выходные данные
Необходимо вывести наименьшее из 4-х данных чисел.

Comments

На каждом что ли языке?

---

Паскаль только

Answer 1

Function min (a,b,c,d: integer):integer;
var m1,m2:integer;
begin
if aif cif m1end;
var a,b,c,d:integer;
begin
writeln('Введите 4 числа:');
readln(a,b,c,d);
writeln('min = ',min(a,b,c,d));
end.

Пример:
Введите 4 числа:
5 8 3 6
min = 3

Answer 2

C++
#include
#include
#include

using namespace std;
int main() {
int a,b,c,d,r,r2,r3;

cin >> a >> b >> c >> d;

r=min(a,b);
r2=min(r,c);
r3=min(r2,d);

cout << r3;</span>
return 0;
}

Pascal
program Project1;

var a,b,c,d:integer;

begin
readln (a,b,c,d);

if ((a<=b) and (a<=c) and (a<=d)) then begin<br>writeln (a);
end

else if ((b<=a) and (b<=c) and (b<=d)) then begin<br>writeln (b);
end

else if ((c<=b) and (c<=a) and (c<=d)) then begin<br>writeln (c);
end

else begin
writeln (d);
end;

end.

Comments

ССПАСИБОООО