profile
Опубликовано 4 года назад по предмету Информатика от Olga1019

Даны три различных целых числа. Определить какое из них (первое,второе, третье) а)самое маленькоеб) является средним(средним назовем число которое больше нам меньшего из данных чисел,но меньше наибольшего)

  1. Ответ
    Ответ дан maxtaines
    Решение :
    Даны три различных целых числа: a=17, b= 10, c=6. 
    Наибольшее a>b
    a>c
    Наименьшее c<a
    c<b
    Среднее b<a
    b>c 

    Тебе код нужен?
    1. Ответ
      Ответ дан Olga1019
      Да нет спасибо)
    2. Ответ
      Ответ дан Olga1019
      Тока мне программу было написать в paskal)
  2. Ответ
    Ответ дан RoFKG
    По моему так:
    program p;
    var
    a,b,c:integer;
    begin
    writeln('первое число:');
    readln(a);
    writeln('второе число:');
    readln(b);
    writeln('третие число:');
    readln(c);
    if (a>b) and (a>c) then
    writeln('Первое число является наибольшим');
    if (a>b) and (a<c) or (a<b) and (a>c) then
    writeln('Первое число является средним');
    if (a<b) and (a<c) then
    writeln('Первое число является наимешим');
    if (b>a) and (b>c) then
    writeln('Второе число является наибольшим');
    if (b>a) and (b<c) or (b<a) and (b>c) then
    writeln('Второе число является средним');
    if (b<a) and (b<c) then
    writeln('Второе число является наимешим');
    if (c>b) and (c>a) then
    writeln('Третие число является наибольшим');
    if (c>b) and (c<a) or (c<b) and (c>a) then
    writeln('Третие число является средним');
    if (c<b) and (c<a) then
    writeln('Третие число является наимешим');
    end.
    1. Ответ
      Ответ дан Olga1019
      Спасибо огромное)
    2. Ответ
      Ответ дан RoFKG
      теперь все правильно
    3. Ответ
      Ответ дан RoFKG
      ну и трудный же этот паскаль)
Самые новые вопросы