написать программу на языке программирования Паскаль которая будет сравнивать 5 чисел между собой и выводить наименьшее
Ответы
Ответ дал:
1
Код:
program Hello;
var a,b,c,d,e, result : Integer;
function min(a,b : Integer) : Integer;
begin
if(a > b) then min := b else min := a;
end;
begin
a := 1;
b := 2;
c := 3;
d := 4;
e := 5;
result := min(min(min(a,b), min(c,d)), e);
writeln(result);
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
7 лет назад
7 лет назад