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

  • задача в паскале: среди четырехзначных чисел выбрать те у которых: 
    1. все 4 цифры различны
    2. имеются три одинаковые цифры
    помогите пожалуйста=)

Ответы 1

  • Программа вылетает т.к. много значений перебирает, если не хочется подобного просто смените ограничение.

    var i,a,b,c,d:integer;

    begin

    for i:=1000 to 9999 do begin

    a:=i mod 10; 

    b:=(i div 10) mod 10; 

    c:=(i div 100) mod 10;

    d:=(i div 1000) mod 10;

          if (a=b) and (b=c) and (c=d) then writeln ('odinakovie cifri - ',i);

          if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then writeln('ne odinakovie cifri - ',i);

    end;

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

Еще вопросы

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

Войти через Google

 или

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

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

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