Задача 13 урок 9

Primary tabs

Submitted by OKside on Sun, 10/10/2021 - 14:06

Forums:

У вас есть три числа (три переменные) найдите их медиану(link is external).
Примечание: это условие давалось как простая разминочная задачка для собеседования в Яндекс.\

program project913;
var a,b,c:integer;
begin
    writeln('Vvedite chisla a b c');
    readln(a,b,c);
   if ((a<b) and (a>c) or (a>b) and (a<c)) then
   writeln(a);
   if ((b<a) and (b>c) or (b>a) and (b<c)) then
    writeln(b);
   if ((c>a) and (c<b) or (c<a) and (c>b)) then
    writeln(c);
   if ((a=b) or (b=c) or (a=c)) then
   writeln('Oshibka');
   readln();
end.
  • Log in to post comments
  • 1912 reads
vedro-compota's picture

vedro-compota

Sun, 10/10/2021 - 14:09 

if ((a=b) or (b=c) or (a=c)) then
   writeln('Oshibka');

равенство всех или любых двух - это не ошибка

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

OKside

Wed, 10/13/2021 - 20:12 

program project913;
var a,b,c:integer;
begin
  writeln('Vvedite chisla a b c');
  readln(a,b,c);
  if ((a<b) and (a>c) or (a>b) and (a<c)) then
    writeln(a);
  if ((b<a) and (b>c) or (b>a) and (b<c)) then
    writeln(b);
  if ((c>a) and (c<b) or (c<a) and (c>b)) then
    writeln(c);
readln();
end.
vedro-compota's picture

vedro-compota

Wed, 10/13/2021 - 20:31

проверить на наборе:

5 5 5

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

vedro-compota's picture

vedro-compota

Wed, 10/13/2021 - 20:35

проверить оформление - цитата ссылка и т.д.

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

OKside

Wed, 10/13/2021 - 20:57 

program project913;
var a,b,c:integer;
begin
  writeln('Vvedite chisla a b c');
  readln(a,b,c);
  if ((a<b) and (a>c) or (a>b) and (a<c)) then
    writeln(a);
  if ((b<a) and (b>c) or (b>a) and (b<c)) then
    writeln(b);
  if ((c>a) and (c<b) or (c<a) and (c>b)) then
    writeln(c);
  if (a=b) and (b=c) then
  else
    if (a>b) and (a=c) then
      else
        if (b>c) and (b=a) then
          else
            if (b>a) and (b=c) then;
    writeln('Oshibka');
    readln();
end.