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

@Alinoska · Регистрация: 01.01.2013

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

Составить программу нахождения суммы двух наибольших из трех различных чисел. ПОМОГИТЕ Девушке, пожалуйста, я уже замучилась(((

@Taftis · 27.01.2013, 16:07

Pascal

uses crt;
var a,b,c,s,max1,max2:longint;
begin
clrscr;
write('vvedite 1 chislo ='); readln(a );
write('vvedite 2 chislo='); readln( b);
write('vvedite 3 chislo='); readln( c);
 max1:=a;
 if b<max1 then max1:=b;
 if c<max1 then max1:=c;
max2:=a;
if b>max2 then max2:=b;
if c>max2 then max2:=c;
s:=a+b+c-max1-max2;
writeln(' rezult: ',max2+s);
end.

@Alinoska · 27.01.2013, 16:21 **[ТС]**

Напиши функцию max для pascal)

@Alinoska 1 / 1 / 0 Регистрация: 01.01.2013 Сообщений: 34
		1
	Составить программу нахождения суммы двух наибольших из трех различных чисел 27.01.2013, 15:52. Показов 7735. Ответов 2 Метки нет (Все метки) Составить программу нахождения суммы двух наибольших из трех различных чисел. ПОМОГИТЕ Девушке, пожалуйста, я уже замучилась((( 0

@Alinoska 1 / 1 / 0 Регистрация: 01.01.2013 Сообщений: 34
	27.01.2013, 16:21 [ТС]	3
	Напиши функцию max для pascal) 0

Опции темы

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

Решение