Предмет: Информатика,
автор: LANDA123
Ребят, нужна пооомощь :с
Найти max из: min(А,В,С) и min(А1, В1, С1).
Нужна блок-схема и программа(или хотя бы что-нибудь одно из этого) :0
Ответы
Автор ответа:
0
program ideone;
Var min1, min2, A, A1, B, B1, C, C1 : integer;
Function min(Var a, b, c : integer) : integer;
begin
if (a<b) and (a<c) then min := a
else if b<c then min := b
else min := c;
end;
Procedure max(Var a, b : integer);
begin
if (a>b) then writeln(a)
else writeln(b);
end;
begin
read(A, B, C, A1, B1, C1);
min1 := min(A, B, C);
min2 := min(A1, B1, C1);
max(min1, min2);
end.
Var min1, min2, A, A1, B, B1, C, C1 : integer;
Function min(Var a, b, c : integer) : integer;
begin
if (a<b) and (a<c) then min := a
else if b<c then min := b
else min := c;
end;
Procedure max(Var a, b : integer);
begin
if (a>b) then writeln(a)
else writeln(b);
end;
begin
read(A, B, C, A1, B1, C1);
min1 := min(A, B, C);
min2 := min(A1, B1, C1);
max(min1, min2);
end.
Автор ответа:
0
https://ideone.com/lxxyZu
Похожие вопросы
Предмет: Литература,
автор: sonashnuk
Предмет: Физика,
автор: karinauros
Предмет: Биология,
автор: bayankalikova
Предмет: Математика,
автор: Ашотка001
Предмет: Математика,
автор: alenka24071