Напишите программку на паскале.В программку вводят 3 числа, к примеру 15 28

Напишите программу на паскале.
В программу вводят 3 числа, к примеру 15 28 10, и она обязана избрать среднею из них. т. е если дается 15 28 10 она обязана выписать 15

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

// процедура размена значений переменных а и b

procedure swapp(var a,b:integer);

var c: integer;

begin

 c:=a;

 a:=b;

 b:=c;

end;

// главная программка  

var a,b,c: integer;

begin

 write('числа a b c через пробел: ');

 readln(a,b,c);

 if agt;b then swapp(a,b);

 if bgt;c then swapp(b,c);

 writeln('среднее по значению: ',b);

end.

Ввод -вывод:

числа a b c через пробел: 25 14 18

среднее по значению: 18


var a,b,c: integer;

begin

readln (a,b,c);

if ((a gt; b) and (a lt; c)) or ((a lt; b) and (a gt; c)) or ((alt;b) and (b=c)) or ((alt;b) and (a=c)) or ((alt;c) and (a=b)) then writeln(a)

else if ((b gt; a) and (b lt; c)) or ((b lt; a) and (b gt; c)) then writeln(b)

else writeln(c);

end.

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


Последние вопросы

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

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

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

Войти на сайт