Составьте программку нахождения суммы 2-ух наивеличайших из трех разных чисел.Pascal ABC.

Составьте программку нахождения суммы 2-ух наивеличайших из 3-х разных чисел.

Pascal ABC.

Задать свой вопрос
Вадик Денишев
С клавиатуры вводятся числа ?
Эльвира Берчинская
Да
1 ответ
Program symma;
var a,b,c,s:integer;
begin
 Readln(a,b,c);
 if (a gt; b) and (c gt; b) then s:=a+c; 
 if (b gt; a) and (cgt;a) then s:=b+c;
 if (agt;b) and (bgt;c) then s:=a+b; 
 if (bgt;a) and (agt;c) then s:=b+a; 
 Writeln(s)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт