Найти сумму двух наибольших из трех различных чисел

@tarik9933 · Регистрация: 05.10.2011

Студворк — интернет-сервис помощи студентам

составить программу нахождения суммы двух наибольших из трех различных чисел на турбо паскаль !!(((
помогите пожалуйста!!!

@rangerx · 05.10.2011, 15:48

Pascal

program prog;
 
function max(a, b: integer): integer;
begin
  if a > b then max:= a
  else max:= b;
end;
 
var
  a, b, c: integer;
begin
  write('input a b c: ' );
  readln(a, b, c);
 
  if max(a, b) = a then
    writeln(a + max(b, c))
  else
    writeln(b + max(a, c));
 
  readln;
end.

@tarik9933 1 / 1 / 0 Регистрация: 05.10.2011 Сообщений: 23
		1
	Найти сумму двух наибольших из трех различных чисел 05.10.2011, 15:00. Показов 3200. Ответов 1 Метки нет (Все метки) составить программу нахождения суммы двух наибольших из трех различных чисел на турбо паскаль !!((( помогите пожалуйста!!! 0

Опции темы

Найти сумму двух наибольших из трех различных чисел

Решение