Программа на нахождение произведения четных чисел и суммы нечетных чисел меньше

var s,p: real;

i: integer;

begin

  p: =1;

  for i : = 1 to 14 do

      if i mod 2 = 0 then p: =p*i

      else s: =s+i;

  writeln(p,s);

end.

Компьютер будущего будет, скорее даже не компьютером в нашем понятии, а отдельной сферой жизни. это будет общедоступная сеть, связываться и которой можно будет с мысленных сигналов-импульсов, либо голосовых команд. как таковое устройство будет представлять из себя микрочип, подсоединенный к организму с которого можно будет выходить в это виртуальное пространство, функции которого будут объединять усовершенствованное подобие интернета, и множество уже существующих и новых функций компьютера, телефона, прочей техники и программного обеспечения   в принципе.

А) делим на 2 с остатком, пока не получится 0: 600 : 2 = 300 (ост. 0) 300 : 2 = 150 (ост. 0) 150 : 2 = 75 (ост. 0) 75 : 2 = 37 (ост. 1) 37 : 2 = 18 (ост. 1) 18 : 2 = 9 (ост. 0) 9 : 2 = 4 (ост. 1) 4 : 2 = 2 (ост. 0) 2 : 2 = 1 (ост. 0) 1 : 2 = 0 (ост. 1) выписываем остатки в обратном порядке: 1001011000 это и есть ответ. можно проверить сложением: 1001011000_2 = 2^9 + 2^6 + 2^4 + 2^3 = 512 + 64 + 16 + 8 = 600 б) делаем тоже самое: 2010 : 2 = 1005 (0) 1005 : 2 = 502 (1) 502 : 2 = 251 (0) 251 : 2 = 125 (1) 125 : 2 = 62 (1) 62 : 2 = 31 (0) 31 : 2 = 15 (1) 15 : 2 = 7 (1) 7 : 2 = 3 (1) 3 : 2 = 1 (1) 1 : 2 = 0 (1) ответ: 11111011010