Предмет: Информатика,
автор: PIUKC
найти большее из 4-ёх чисел pascal ABC NET
Ответы
Автор ответа:
0
function min2(var a,b:integer): integer;
begin
if a>b then
result:=a
else
result:=b;
end;
function min4(var a,b,c,d:integer): integer;
begin
if min2(a,b)>min2(c,d) then
result:=min2(a,b)
else
result:=min2(c,d);
end;
var a,b,c,d: integer;
begin
readln(a,b,c,d);
writeln(min4(a,b,c,d));
end.
begin
if a>b then
result:=a
else
result:=b;
end;
function min4(var a,b,c,d:integer): integer;
begin
if min2(a,b)>min2(c,d) then
result:=min2(a,b)
else
result:=min2(c,d);
end;
var a,b,c,d: integer;
begin
readln(a,b,c,d);
writeln(min4(a,b,c,d));
end.
Автор ответа:
0
можно решение попроще пожалуйста, мы этого ещё не проходили мы только прошли then и if
Автор ответа:
0
ладно
Автор ответа:
0
var a,b,c,d,ab,cd:integer;
begin
readln(a,b,c,d);
if (a>b) then
ab:=a
else
ab:=b;
if (c>d) then
cd:=c
else
cd:=d;
if (ab>cd) then
writeln(ab)
else
writeln(cd);
end.
begin
readln(a,b,c,d);
if (a>b) then
ab:=a
else
ab:=b;
if (c>d) then
cd:=c
else
cd:=d;
if (ab>cd) then
writeln(ab)
else
writeln(cd);
end.
Автор ответа:
0
спасибо!
Похожие вопросы
Предмет: Алгебра,
автор: soltanhubiev
Предмет: Русский язык,
автор: dora22866
Предмет: Математика,
автор: samsampompom
Предмет: Математика,
автор: sashaloveyou199