Задача 15 Урок 9

Primary tabs

Submitted by Neoanthropus on Sat, 04/09/2022 - 19:42

Forums:

Задача 15 Урок 9:

У вас есть три числа (три переменные) найдите их медиану

Решение:

var a, b, c:integer;
begin
  writeln('vvedite a, b, c');
  readln (a,b,c);
  if ((b < a) and (a < c)) or ((b > a) and (a > c)) then
    writeln('mediana: a');
  if ((a < b) and (b < c)) or ((a > b) and (b > c)) then
    writeln('mediana: b');
  if ((b < c) and (c < a)) or ((b > c) and (c > a)) then
    writeln('mediana: c');
  readln;
end.

Консоль:

vvedite a, b, c
1
2
3
mediana: b
  • Log in to post comments
  • 831 reads
vedro-compota's picture

vedro-compota

Sat, 04/09/2022 - 20:16

  • 1) Если изветно что два числа не подошли - то дальше можно не сравнивать
  • 2) Если какое число подошло - то дальше тоже можно не сравнивать

_____________
матфак вгу и остальная классика =)

Neoanthropus

Mon, 04/25/2022 - 22:08 

var a, b, c:integer;
begin
  writeln('vvedite a, b, c');
  readln (a,b,c);
  if ((b < a) and (a < c)) or ((b > a) and (a > c)) then
    writeln('mediana: a')
  else if ((a < b) and (b < c)) or ((a > b) and (b > c)) then
    writeln('mediana: b')
  else
    writeln('mediana: c');
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 04/27/2022 - 20:17

засчитано

_____________
матфак вгу и остальная классика =)