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

• Если будет введено трёхзначное число, то выражение тоже будет истинным. Тогда уж (A>9) and (A<100) или же ((a mod 100) = a) and (a mod 10 <> a)) или ((a div 100)=0) and ((a div 10) <> 0)

  Ответить

  • «неравно» опять убежало

    Ответить

  • Поправил.

    Ответить

• read(a);
  write((a>9)and(a<100)and(not(odd(a))));

  Ответить

  • Да, согласен, что odd больше подходит. Исправил:
    Было:

    program Boolean16; var A: Integer; begin Write('Введите число A: '); Readln(A); Writeln((A>9) And (A mod 2 = 0) And (A<100)); end.

    1 2 3 4 5 6 7 8

    program Boolean16; var A: Integer; begin   Write('Введите число A: ');   Readln(A);   Writeln((A>9) And (A mod 2 = 0) And (A<100)); end.

    Стало:

    program Boolean16; var A: Integer; begin Write('Введите число A: '); Readln(A); write((A>9)and(A<100)and(not(odd(A)))); end.

    1 2 3 4 5 6 7 8

    program Boolean16; var A: Integer; begin   Write('Введите число A: ');   Readln(A);   write((A>9)and(A<100)and(not(odd(A)))); end.

    Ответить

• program booleann; uses CRT; var a:integer; begin write('Введите число a='); readln(a); writeln((not odd(a)) and (a div 100=0)); end.

  1 2 3 4 5 6 7 8

  program booleann; uses CRT; var a:integer;   begin write('Введите число a='); readln(a); writeln((not odd(a)) and (a div 100=0)); end.

  Ответить

  • при таком решении нет ограничение на двузначность числа с низу…. например на числа 2,4,6 данное решение тоже будет выдаваться TRUE.

    Ответить

• Скажите, а такое решение имеет смысл? (Я знаю, что здесь не говорится об использовании условного оператора if, но ведь и не запрещалось использовать)

  Program Boolean16; Var A,T,O:integer; C:boolean; Begin writeln('Enter A value'); readln(A); T:=A div 10; {Расчет количества десятков} O:=A mod 10; {Расчет количества единиц} if (A>=10) and (A<100) then C:=((T mod 2<>0) and (O mod 2=0))or ((T mod 2=0) and (O mod 2=0)); writeln('A value is two-digit even number = ',C); End.

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

  Program Boolean16; Var A,T,O:integer; C:boolean; Begin writeln('Enter A value'); readln(A); T:=A div 10; {Расчет количества десятков} O:=A mod 10; {Расчет количества единиц} if (A>=10) and (A<100)  then C:=((T mod 2<>0) and (O mod 2=0))or ((T mod 2=0) and (O mod 2=0)); writeln('A value is two-digit even number = ',C); End.

  Ответить

  • Поправка строки с присваиванием выражения переменной С:
    —————————————————————————————————
    C:=((T mod 20) and (O mod 2=0))or ((T mod 2=0) and (O mod 2=0));
    —————————————————————————————————

    Ответить

  • Да, вполне можно и так. Просто если вы изучаете материал с нуля подразумевается, что вы не знаете об if. )

    Ответить

• —————————————————————————————————
  C:=((T mod 2(здесь знак неравенства)0) and (O mod 2=0))or ((T mod 2=0) and (O mod 2=0));
  —————————————————————————————————

  Ответить

  • Поправил в исходном материале. Можно воспользоваться кнопкой «Вставить код», что бы код вставлялся корректно.

    Ответить

    • Благодарю. =)

      Ответить

• (a div 100) = 0 and (a mod 100) <> 0 and not odd(a)

  1	(a div 100) = 0 and (a mod 100) <> 0 and not odd(a)

  Ответить