• Имеются четыре произвольных числа a, b, c, d. Программа должна произвести проверку утверждения (ответить Да/нет):
    Среди чисел нет равных.
    Помогите пожалуйста..

Ответы 1

  • var a,b,c,d: Integer;beginwriteln('Введите a,b,c,d');readln(a,b,c,d);if (a=b) or (a=c) or (a=d) or (b=a) or (b=c) or (b=d) or (c=a) or (c=b) or (c=d) or (d=a) or (d=b) or (d=c) thenwriteln('Среди чисел есть равные числа') else writeln('Среди чисел нет равных чисел');end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years