Предмет: Информатика, автор: PIUKC

найти большее из 4-ёх чисел pascal ABC NET

Ответы

Автор ответа: xerex21
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.
Автор ответа: PIUKC
0
можно решение попроще пожалуйста, мы этого ещё не проходили мы только прошли then и if
Автор ответа: xerex21
0
ладно
Автор ответа: xerex21
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.
Автор ответа: PIUKC
0
спасибо!
Похожие вопросы
Предмет: Алгебра, автор: soltanhubiev
Предмет: Математика, автор: sashaloveyou199