Автор Марсель чабирзянов задал вопрос в разделе Другие языки и технологии
Помогите составить программу по информатики Даны 3 целых числа a,b,c.Найти сумму наименьшего и наибольшего этих чисел и получил лучший ответ
Ответ от
var
a,b,c, max, min: Integer;
begin
write('a= '); readln(a);
write('b= '); readln(b);
write('c= '); readln(c);
max:= a;
if b >= max then max:= b;
if c >= max then max:= c;
min:= a;
if b <= min then min:= b;
if c <= min then min:= c;
writeln('Sum= ', min+max);
readln;
end.
Ответ от Mcferden[гуру]
a, b, c = map(int, input().split())
print(max(a, b, c) + min(a, b, c))
a, b, c = map(int, input().split())
print(max(a, b, c) + min(a, b, c))
Ответ от Максим[гуру]
if (a > b) swap(a,b)
if (b > c) swap(b,c)
if (a > b) swap(a,b)
if (a > b) swap(a,b)
if (b > c) swap(b,c)
if (a > b) swap(a,b)
Ответ от =Serge=[гуру]
var a,b,c:integer;
function max(X:integer,Y:integer):integer
begin
If (X>Y) return X;
else return Y;
end;
function max3(X:integer,Y:integer,Z:integer):integer
begin
return max(max(X,Y),Z);
end;
{...аналогично min и min3}
begin
writeln('введите 3 числа');
readln(a,b,c);
writeln('Сумма мин и макс =',max3(a,b,c)+min3(a,b,c));
end.
var a,b,c:integer;
function max(X:integer,Y:integer):integer
begin
If (X>Y) return X;
else return Y;
end;
function max3(X:integer,Y:integer,Z:integer):integer
begin
return max(max(X,Y),Z);
end;
{...аналогично min и min3}
begin
writeln('введите 3 числа');
readln(a,b,c);
writeln('Сумма мин и макс =',max3(a,b,c)+min3(a,b,c));
end.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Помогите составить программу по информатики Даны 3 целых числа a,b,c.Найти сумму наименьшего и наибольшего этих чисел