Дан фрагмент программы. после выполнения фрагмента программы определите значение х. a : = 16 b : = 4 b : = a - 2 * b если a > b то x : = a - b/4 иначе x : = b/14 - a

B= 16 - 2*4 = 8, далее выполняется условие а> b (16> 8), то x = 16 - 8/4 = 14

На языке pascal код будет выглядеть так: var  a: integer; b, x: real; begin a : = 16; b : = 4; b : = a - 2 * b; if a > b then x : = a - b / 4 else x : = b / 14 - a; writeln(x); end.при выполнении этой программы, получаем ответ равный 14.т.к. b = 16 - 2 * 4 = 8, x = 16 - 8 / 4 = 16 - 2 = 14.

Известняк  белый, светло-серый, желтоватый. твердый, не имеет блеска гипс белый, светло серый, твердый, не имеетпесок разного цвета(черный, желтый итд), рыхлый, блеск имеетнефть  буро-коричневый, бесцветный, жидкий. не имеет кварц  бесцветный, белый, фиолетовый, серый, жёлтый, коричневый, твердый. имеет  стеклянный блеск. базальт темные цвета, твердый,  блеск   светло-желтоватого или светлозеленоватогоцвета гранит.  цвет гранита имеет широкий цветовой диапазон. твердый, не имеет

Уменя получилось 6216 vb.  dim i as integer  dim s as integerdim d as integerfor i = 1000 to 9999              s = cint((cint(mid(cstr(i), 1, ^ 2 + (cint(mid(cstr(i), 2, ^ 2 + (cint(mid(cstr(i), 3, ^ 2 + (cint(mid(cstr(i), 4, ^ 2)            if s mod 2 = 0 or s mod 3 = 0 then d += 1      '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535       next        msgbox(d)