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

уфаупу · Регистрация: 16.10.2012

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

Даны три числа. Найти сумму двух наибольших из них. В Free Pascal

@Puporev · 18.10.2012, 15:30

Pascal

uses math;
var a,b,c,mn,x:real;
begin
writeln('a,b,c');
readln(a,b,c);
mn:=Min(MIn(a,b),c);
x:=a+b+c-mn;
write('max=',x:0:2);
readln
end.

@XRain · 18.10.2012, 15:30

Pascal

program project;
 
var
a,b,c:integer;
 
begin
  writeln('Введите три числа');
  read(a,b,c);
  writeln('Сумма двух максимальных чисел: ');
  if a>b then
    if c>b then write(a+c)
      else
        write(a+b)
  else
    if c>a then write(b+c)
      else
        write(b+a);
 
end.

@Alex Dark · 18.10.2012, 15:35

Puporev, красиво

XRain, извини конечно, но стандартно

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

Решение

Решение

уфаупу 0 / 0 / 0 Регистрация: 16.10.2012 Сообщений: 12
		1
	Найти сумму двух наибольших чисел из трех заданных 18.10.2012, 15:17. Показов 35480. Ответов 3 Метки нет (Все метки) Даны три числа. Найти сумму двух наибольших из них. В Free Pascal 0

@Alex Dark Наблюдатель 457 / 192 / 33 Регистрация: 01.05.2012 Сообщений: 1,028
	18.10.2012, 15:35	4
	Puporev, красиво XRain, извини конечно, но стандартно 1

Опции темы