1)написать программу вывода всех четных чисел от 2 до 1000 включительно 2)написать программу определяющую сумму всех нечетных чисел от 1 до 99

1) var i: word; begin for i: =1 to 1000 do        if i mod 2 = 0 then write(i, ' ');   readln; end.2)vari: word; sum: word; beginsum: =0; for i: =1 to 99 do    if i mod 2 < > 0 then sum: =sum+i; writeln('summa = ', sum: 5); readln; end.

A. var  a: array[1..10] of real;   i: integer; begin  for i: = 1 to 10 do begin  write('введите ',i,'-ый элемент массива ');   readln(a[i]);   if a[i]> 10 then a[i]: =sqrt(a[i]);   end;   write('преобразованный массив ');   for i : = 1 to 10 do  write(a[i],' | '); end.б.var  a: array[1..10] of real;   i: integer; begin  for i: = 1 to 10 do begin  write('введите ',i,'-ый элемент массива ');   readln(a[i]);   if (i mod 2) = 0 then a[i]: =trunc(a[i]);   end;   write('преобразованный массив ');   for i : = 1 to 10 do  write(a[i],' | '); end.

Вкинозале всего 16×32=512 мест. сообщение о купленном билете однозначно определяет выбор одного из этих мест. из уравнения  2  i  = 512=29получаем: i=9 бит. но эту же можно решать иначе. сообщение о номере ряда несет 4 бита информации, т.к. 24=16. сообщение о номере места несет 5 бит информации, т.к. 25=32. в целом сообщение про ряд и место несет: 4+5=9 бит информации. данный пример иллюстрирует выполнение закона активности информации (правило сложения):   количество информации в сообщении одновременно о нескольких результатах независимых друг от друга событий равно сумме количеств информации о каждом событии отдельно.