Напишите программу, которая находит среднее из трёх введённых чисел. Подразумевается, что

Напишите программу, которая обретает среднее из трёх введённых чисел. Предполагается, что все три числа разные.

Задать свой вопрос
1 ответ

var a,b,c,max,min,s: integer;

begin

readln(a,b,c);

if agt;b then max:=a else max:=b;

if cgt;max then max:=c;

if alt;b then min:=a else min:=b;

if clt;min then min:=c;

s:=(a+b+c)-(max+min);

writeln(s);

end.

Пример:

5 2 9

5

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт