Записать ** языке Pascal условие, которое является ИСТИННЫМ, когда а) каждое из чисел А и...

Question

Записать на языке Pascal условие, которое является ИСТИННЫМ, когда а) каждое из чисел А и В больше 100; б) только одно из чисел А и В четное; в) хотя бы одно из чисел А и В положительно; г) каждое из чисел А, В, С кратно трем; д) только одно из чисел А, В и С меньше 50; е) хотя бы одно из чисел А, В, С отрицательно.

Answer 1

а) if (A>100) and (B>100) then
б) if (A mod 2 = 0) xor (B mod 2 = 0) then
в) if (A>0) or (B>0) then
г) if (A mod 3 = 0) and (B mod 3 = 0) and (C mod 3 = 0) then
д) if (A<50) xor (B<50) xor (C<50) then<br>е) if (A<0) or (B<0) or (C<0) then</p>