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

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

//Дано трехзначное число.Проверить истиность высказывания :Все цифры данного числа различны.
Program razlichnie;
var a, c1, c2, c3: integer;
    l: boolean;
begin
  write('Введите трехзначное число ->');
  readln(a);
  c1:=a mod 10;
  c2:=a div 10 mod 10;
  c3:=a div 100;
  l:=(c1<>c2) and (c2<>c3) and (c1<>c3);
  writeln('Все цифры данного числа различны = ', l);
end.

Код к задаче: «Определить, что все цифры числа различны - 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.

9   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ