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

Question

по паскалю

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

помогите решить пожалуйста.

Answer 1

а) if (a>100) and (b>100) then

write('ISTENO');

б) if (a mod 2 = 0) or (b mod 2 =0) then

write('ISTENO');

в) if (a > 0) or (b>0) then

write('ISTENO');

г) if (a mod 3 = 0) and (b mod 3 = 0) and (c mod 3 = 0) then

write('ISTENO');

д) if ((a<50) and (b>50) and (c>50)) or ((a>50) and (b<50) and (c>50)) or ((a>50) and (b>50) and (c<50)) then</p>

write('ISTENO');

е) if (a<0) or (b<0) or (c<0) then</p>

write('ISTENO');