задачи на тему логические переменные

[Hacker19_90]

Readln (n1, n2, n3);
Writeln ((n1+n2+n3) mod 2 = 0);

[aleks15]

спасибо все понял

[Serge_Bliznykov]

Hacker19_90, неверно!

определить значение логического выражения утверждающего что 3 целых числа введеные с клавиатуры четные числа

надо примерно так:

WriteLn( ((n1 mod 2)=0) and ((n2 mod 2)=0) and ((n3 mod 2)=0) );

ну, или так:[code]WriteLn( Not Odd(n1) and Not odd(n2) and Not odd(n3) );

[veniside]

мой вариант )

alleven := 1 > n1 and 1 or n2 and 1 or n3 and 1;

[Stilet]

1 > n1 and ...

А вот тут ИМХО в скобочки взять не помешает.

1 > (n1 and ...

[aleks15]

спасибо Serge_Bliznykov у вас действительно оказалось правильно

может кто ни то пожалуйста задачек на эту тему кинуть логику тренировать буду

[veniside]

> А вот тут ИМХО в скобочки взять не помешает

побитовые операции вроде приоритет над операциями сравнения имеют. Но можно и взять, да.

> может кто ни то пожалуйста задачек на эту тему кинуть логику тренировать буду

Вот, тренируй: покажите, что выражение a^n + b^n = c^n не имеет натуральных решений a, b и c для n > 2.

[aleks15]

попытаюсь решить