Задать вопрос
10 августа, 03:54

Дано натуральное четырехзначное число, верно ли, что все его цифры различны? Написать программу.

+3
Ответы (1)
  1. 10 августа, 05:46
    0
    var a, b, c, d, e:integer;

    begin

    read (a) ;

    b:=a mod 10;

    a:=a div 10;

    c:=a mod 10;

    a:=a div 10;

    d:=a mod 10;

    a:=a div 10;

    e:=a mod 10;

    if (bc) and (bd) and (be) and (cd) and (ce) and (de) then write ('net povtorov')

    else write ('est povtori') ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дано натуральное четырехзначное число, верно ли, что все его цифры различны? Написать программу. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы