Умоляю ,Пожалуйста !!!!!Напишите функцию 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
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов