Комментарии 14

• Дано трехзначное число, а не три числа.

  Ответить

• Я решил так:

  Delphi/Pascal

  uses PT4; var a,b,c,d:integer; begin Task('Boolean20'); read(a); b:=(a div 100); c:=(a div 10); c:=(c mod 10); d:=(a mod 10); write ((b<>c) and (b<>d) and (c<>d)); end.

  1 2 3 4 5 6 7 8 9 10 11 12

  uses   PT4; var a,b,c,d:integer; begin   Task('Boolean20'); read(a); b:=(a div 100); c:=(a div 10); c:=(c mod 10); d:=(a mod 10); write ((b<>c) and (b<>d) and (c<>d)); end.

  Ответить

  • знаки «неравно» между bc/bd/cd в write не запостились

    Ответить

    • Поправил твой коммент.

      Ответить

  • Да действительно решил не ту задачу.
    Было:

    Delphi/Pascal

    program Boolean20; var A,B,C: Integer; begin Write('Введите число A: '); Readln(A); Write('Введите число B: '); Readln(B); Write('Введите число C: '); Readln(C); Writeln((A<>B) and (B<>C) or (C<>A)); end.

    1 2 3 4 5 6 7 8 9 10 11 12

    program Boolean20; var A,B,C: Integer; begin Write('Введите число A: '); Readln(A); Write('Введите число B: '); Readln(B); Write('Введите число C: '); Readln(C); Writeln((A<>B) and (B<>C) or (C<>A)); end.

    У тебя решение конеч но правильное, но с утра сильно сложно разбираться в остатках от делений.. решил так:

    Delphi/Pascal

    program Boolean20; var A,B,C: Integer; begin Write('Введите число: '); Readln(A); Writeln(not((A mod 111) = 0)); readln; end.

    1 2 3 4 5 6 7 8 9

    program Boolean20; var A,B,C: Integer; begin Write('Введите число: '); Readln(A); Writeln(not((A mod 111) = 0)); readln; end.

    Ответить

    • реально у тебя грамотнее решение ))) надо мне развивать соображалку

      Ответить

      • да я просто ленивый 🙂

        Ответить

        • недаром говорят «лень на выдумки хитра» 🙂

          Ответить

    • Все три цифры должны быть различны, т.е. для 121, например, вернется true, хотя должно быть false

      Ответить

      • Эх… такое хорошее решение было… 🙂 надо переписать опять 🙁

        Ответить

      • Было:

        program Boolean20; var A,B,C: Integer; begin Write('Введите число: '); Readln(A); Writeln(not((A mod 111) = 0)); end.

        1 2 3 4 5 6 7 8

        program Boolean20; var A,B,C: Integer; begin Write('Введите число: '); Readln(A); Writeln(not((A mod 111) = 0)); end.

        Стало:

        program Boolean20; var A,A1,A2,A3: Integer; begin Write('Введите число: '); Readln(A); A1:=A div 100; A:=A-A1*100; A2:=A div 10; A3:=a-A2*10; Writeln((A1<>A2) and (A2<>A3) and (A1<>A3)); end.

        1 2 3 4 5 6 7 8 9 10 11 12 13

        program Boolean20; var A,A1,A2,A3: Integer;   begin Write('Введите число: '); Readln(A); A1:=A div 100; A:=A-A1*100; A2:=A div 10; A3:=a-A2*10; Writeln((A1<>A2) and (A2<>A3) and (A1<>A3)); end.

        Ответить

• у меня так:

  a,s,d,e:integer; begin Task('Boolean20'); read(a); s:=a div 100; d:=a div 10 mod 10; e:=a mod 10; writeln( (s <> d)and(d <> e)and(s <> e) ); end.

  1 2 3 4 5 6 7 8 9

  a,s,d,e:integer; begin   Task('Boolean20'); read(a);    s:=a div 100;    d:=a div 10 mod 10;    e:=a mod 10;   writeln( (s <> d)and(d <> e)and(s <> e) ); end.

  Ответить

  • Добавил решение в шапку.

    Ответить

• Program Boolean20; var A,H,T,O:integer; B:boolean; begin writeln('Enter A value'); readln(A); H:=A div 100; {Количество сотен} T:=A mod 100 div 10; {Количество десятков} O:=A mod 10; {Количество единиц} B:=(H<>T)and(T<>O)and(H<>O); writeln('All of the numbers are different = ',B); end.

  1 2 3 4 5 6 7 8 9 10 11 12

  Program Boolean20; var A,H,T,O:integer; B:boolean; begin writeln('Enter A value'); readln(A); H:=A div 100; {Количество сотен} T:=A mod 100 div 10; {Количество десятков} O:=A mod 10; {Количество единиц} B:=(H<>T)and(T<>O)and(H<>O); writeln('All of the numbers are different = ',B); end.

  Ответить