Определить, что все цифры числа различны - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Решение задачи: «Определить, что все цифры числа различны»

textual
Листинг программы
Program razlichnie;
var a,B,c,d:integer;
var w:boolean;
begin
write('Введите трехзначное число ->');
readln(a);
b:=(a div 100);
C:=(a div 10 mod 10 );
D:=(A MOD 10);
IF (b<>c)and(c<>d)and(b<>d) then w:=true;
if w=TRUE  then writeln('Все цифры данного числа различны')
else
writeln('не все');
write (w); // на  всякий случай
end.

Объяснение кода листинга программы

  1. В программе объявлены четыре переменные: a, b, c и d типа integer.
  2. Затем происходит чтение трехзначного числа от пользователя с помощью функции readln.
  3. Переменная b вычисляется как частное от деления введенного числа на 100.
  4. Переменная C вычисляется как остаток от деления введенного числа на 10, что позволяет получить последнюю цифру числа.
  5. Переменная D вычисляется как остаток от деления введенного числа на 10, что позволяет получить последнюю цифру числа.
  6. Затем проверяется условие (b <> c) and (c <> d) and (b <> d), которое проверяет, что все цифры числа различны.
  7. Если условие истинно, то переменная w устанавливается в значение true, что означает, что все цифры числа различны.
  8. В противном случае, если условие ложно, то выводится сообщение не все.
  9. В конце программы выводится значение переменной w с помощью функции write.

Оцени полезность:

9   голосов , оценка 4 из 5
Похожие ответы