Регистрация
шшшшккпеее1
26.07.2021 02:00
Информатика
Есть ответ 👍

Напишите программу на языке программирования паскаль, которая будет сравнивать 5 чисел между собой и выводить наименьшее

191
194
Посмотреть ответы 3

Ответы на вопрос:

Kylaguzzz
Kylaguzzz
4,7(30 оценок)

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.

Объяснение:

SASHABACUNOV
SASHABACUNOV
4,8(77 оценок)

Код:

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,8(13 оценок)
  5 (6 гранников получится )

Популярно: Информатика