Fizik98
Опубликовано 7 лет назад по предмету Информатика от Fizik98


задача в паскале: среди четырехзначных чисел выбрать те, у которых цифры попарно различны

  1. Ответ
    Ответ дан sinbad7

    var i, n, a: integer; c1, c2, c3, c4: integer;

    begin readln(n); for i := 1 to n do begin readln(a); c1 := a div 1000; c2 := (a div 100) mod 10; c3 := (a div 10) mod 10; c4 := a mod 10; if (c1 <> c2) and (c1 <> c3) and (c1 <> c4) and (c2 <> c3) and (c2 <> c4) and (c3 <> c4) then writeln('цифры попарно различны') else writeln('не все цифры попарно различны'); end;end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц