Если количество символов алфавита равно n , а количество символов в записи сообщения - k , то информационный объем v данного сообщения вычисляется по формуле:
Var a,k1,k2,s:integer; begin writeln('Вводите целые числа. Конец ввода - 0'); k1:=0; k2:=0; s:=0; readln(a); while a<>0 do begin if (a mod 2 = 0)and(a<0) then k1:=k1+1; if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end; readln(a); end; writeln('количество четных отрицательных чисел = ',k1); if k2>0 then writeln('среднее арифметическое нечётных чисел = ',s/k2) else writeln('в последовательности нет нечётных чисел'); end.
Пример: Вводите целые числа. Конец ввода - 0 18 -45 10 -62 70 0 количество четных отрицательных чисел = 1 среднее арифметическое нечётных чисел = -45
Var x,y:integer; begin writeln('Программа определения местонахождения точки'); writeln('Введите координаты точки'); readln(x,y); //вводим координаты точки if (x>=0) and (y>=0) then writeln('1 четверть'); //точка принадлежит 1 ч. если обе координаты положительны (это из геометрии) if (x<0) and (y>=0) then writeln('2 четверть'); //точка принадлежит 2 ч. если х<0, а y неотрицателен (это из геометрии) if (x<0) and (y<0) then writeln('3 четверть'); //точка принадлежит 3 ч. если обе координаты отрицательны (это из геометрии) if (x>=0) and (y<0) then writeln('4 четверть'); //точка принадлежит 4 ч. если х неотрицателен, а y<0 (это из геометрии) end.
k*i
Объяснение:
i- это степень двойки числа n( n=64=> i=6)