Mara
7 год назад
Умоляю ,Пожалуйста !!!!!
Напишите функцию 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-х данных чисел.
ОТВЕТЫ
Фаддей
Jul 20, 2019
Function min (a,b,c,d: integer):integer;
var m1,m2:integer;
begin
if alt;b then m1:=a else m1:=b;
if clt;d then m2:=c else m2:=d;
if m1lt;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
var m1,m2:integer;
begin
if alt;b then m1:=a else m1:=b;
if clt;d then m2:=c else m2:=d;
if m1lt;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
C++
#include lt;iostreamgt;
#include lt;cmathgt;
#include lt;stdio.hgt;
using namespace std;
int main() {
int a,b,c,d,r,r2,r3;
cin gt;gt; a gt;gt; b gt;gt; c gt;gt; d;
r=min(a,b);
r2=min(r,c);
r3=min(r2,d);
cout lt;lt; r3;
return 0;
}
Pascal
program Project1;
var a,b,c,d:integer;
begin
readln (a,b,c,d);
if ((alt;=b) and (alt;=c) and (alt;=d)) then begin
writeln (a);
end
else if ((blt;=a) and (blt;=c) and (blt;=d)) then begin
writeln (b);
end
else if ((clt;=b) and (clt;=a) and (clt;=d)) then begin
writeln (c);
end
else begin
writeln (d);
end;
end.
#include lt;iostreamgt;
#include lt;cmathgt;
#include lt;stdio.hgt;
using namespace std;
int main() {
int a,b,c,d,r,r2,r3;
cin gt;gt; a gt;gt; b gt;gt; c gt;gt; d;
r=min(a,b);
r2=min(r,c);
r3=min(r2,d);
cout lt;lt; r3;
return 0;
}
Pascal
program Project1;
var a,b,c,d:integer;
begin
readln (a,b,c,d);
if ((alt;=b) and (alt;=c) and (alt;=d)) then begin
writeln (a);
end
else if ((blt;=a) and (blt;=c) and (blt;=d)) then begin
writeln (b);
end
else if ((clt;=b) and (clt;=a) and (clt;=d)) then begin
writeln (c);
end
else begin
writeln (d);
end;
end.
231
Смежные вопросы:
