Автор Марсель чабирзянов задал вопрос в разделе Другие языки и технологии
Помогите составить программу по информатики Даны 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.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Помогите составить программу по информатики Даны 3 целых числа a,b,c.Найти сумму наименьшего и наибольшего этих чисел
Сколько различных решений имеет уравнение (тема логика по информатике)...(см внутри)
((A → B)* C) + (D * ¬D)= 1,
D*¬D=0 при любых D (D=0,D=1)
((A→B)*C)+0=1 при
подробнее...
Информатика. составьте программу вычисления корней квадратного уравнения по данным значением
var a,b,c,x1,x2,d:real;
begin
readln(a,b,c); x1:=0; x2:=0;
d:=b*b+4*a*c;
подробнее...
А16 информатика. Объясните принцип решения.
(a + b + c + 6) / 4 = 5
a + b + c + 6 = 20
a + b + c = 14 это и есть СУММ (А3:С3)
т.
подробнее...
спросили в Бейсик
у кого есть демо версии егэ по информатике 2008.
Демонстрационный вариант ЕГЭ 2008 г. ИНФОРМАТИКА, 11 класс.
© Федеральная служба по надзору в
подробнее...
у кого есть демо версии егэ по информатике 2008.
Демонстрационный вариант ЕГЭ 2008 г. ИНФОРМАТИКА, 11 класс.
© Федеральная служба по надзору в
подробнее...
системы исчисления в информатике
Системой счисления называется совокупность приемов наименования и записи чисел. В любой системе
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
спросили в Другое Евгений IV
Что вычисляет приведённая ниже программа?
Дык, по идее эта программа на Паскале вообще ничего не сможет вычислить:
в ней описаны одни
подробнее...
Что вычисляет приведённая ниже программа?
Дык, по идее эта программа на Паскале вообще ничего не сможет вычислить:
в ней описаны одни
подробнее...
спросили в PRM системы
Зачем нужны двоеточия?
Двоето́чие — знак препинания в виде двух расположенных одна над другой точек (:),
подробнее...
Зачем нужны двоеточия?
Двоето́чие — знак препинания в виде двух расположенных одна над другой точек (:),
подробнее...
спросили в Задача Задачи
Помогите написать простые программы и задачи в Pascal ABC. Алгоритмы ветвления. Информатика. Програмирование.
Задача №1.
var a,b:integer;
begin
writeln('Введите a и b:');
Помогите написать простые программы и задачи в Pascal ABC. Алгоритмы ветвления. Информатика. Програмирование.
Задача №1.
var a,b:integer;
begin
writeln('Введите a и b:');
помогите с информатикой
Возможно тебе нужно решение. Смотри раздел дискретной математики по графам. Конкретнее: определение
подробнее...
ГИА-Информатика. 16-е задание. Экзамен.
Краткие теоретические сведения:
Пусть abc-математическая запись трёхзначного числа, где
подробнее...