Дано N<=999 враховуючи 3 числа визначити що правильно містить: 1) усі різні цифри 2)...

Question

Дано N<=999 враховуючи 3 числа визначити що правильно містить: 1) усі різні цифри 2) цифри не ідуть по спаду и это все в Паскаль

Comments

Можно перевести?

---

дано N <= 999 учитывая 3 числа определить правильно содержит: 1) все разные цифры 2) цифры не идут по спаду и это все в Паскаль

Answer 1

Var A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn('1: ',(A div 100 <> (A div 10) mod 10)and((A div 10) mod 10 <> A mod 10)and(A mod 10 <> A div 100));
Write('2: ');
if (A div 100 <= (A div 10) mod 10) then Write(True)<br>else Write(((A div 100) mod 10 <= A mod 10));<br>End.

Comments

это 1 или 2?

---

Два в одном

---

ок

---

пасиб

---

Если чего-то не хватает, что-то работает не так, как надо - пишите - исправлю. Или пометьте как нарушение))

---

ок)