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-х данных чисел.

Answer 1

Function min (a,b,c,d: integer):integer;
var m1,m2:integer;
begin
if a<b then m1:=a else m1:=b;
if c<d then m2:=c else m2:=d;
if m1<m2 then min:=m1 else min:=m2;
end;
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 <iostream>
#include <cmath>
#include <stdio.h>

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;
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
writeln (a);
end

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

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

else begin
writeln (d);
end;

end.