Запишите на языке Pascal следующие условия: x не кратно 7 -3 < x < 2 x Є [-3; 4] x кратно 7 x оканчивается на 6 x - двухзначное число x - чётное число СРОЧНО

Вопрос школьника по предмету Информатика

Запишите на языке Pascal следующие условия:
x не кратно 7
-3 < x < 2
x Є [-3; 4]
x кратно 7
x оканчивается на 6
x — двухзначное число
x — чётное число

СРОЧНО

Ответ учителя по предмету Информатика

Ответ:

if (x mod 7 <> 0)

if (x > -3) and (x < 2)

if (x >= -3) and (x <= 4)

if (x mod 7 = 0)

if (x mod 10 = 6)

if (x mod 10 = 6)

if (x.ToString().Lenght = 2) или if (x > 9) and (x < 100)

if (x mod 2 = 0)