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

Question

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

Answer 1

Ответ:

if (x mod 7 <> 0)

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

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

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)