Умоляю ,Пожалуйста !!!!!Напишите функцию int min (int a, int b, int
Упрашиваю ,Пожалуйста !!!!!
Напишите функцию 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 данных чисел.
Входные данные
Вводится четыре числа.
Выходные данные
Нужно вывести меньшее из 4-х данных чисел.
Юрик Огайджан
На каждом что ли языке?
Люба Непоротивская
Паскаль только
2 ответа
Vlad Gorlickij
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.
Игорь Желейцев
ССПАСИБОООО
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов