Задать вопрос Регистрация
Помочь другим

  • -Проверьте, есть ли среди трех заданных чисел равные.

    Программку в Паскале напишите )

Ответы 1

  • var a,b,c:integer;

    begin

    readln(a,b,c);

    if((a=b)or(b=c)or(c=a)) then writeln(':)') else writeln(':(')

    end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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