Буква "а" точно в букве "о" ?
По степени преобразования различают первичную и производную информацию.
Первичная информация сохраняется или используется в том виде, в каком была получена. Основной метод ее образования — первичный учет (пересчет, перевес, проверка по качеству), а также использование данных входящих документов в неизменном виде.
Преобразованая информация получается путем переработки первичной. Она формируется в результате составления отчетов на основе учетных данных или заимствования полученной первичной информации (составление карточек количественно-суммового учета и журнала регистрации движения товаров на основе товаросопроводительных документов). Надеюсь помогла вам.
Const n=10;
var a,s,k,i:integer;
begin
Randomize;
s:=0; k:=0;
writeln('Числа:');
for i:=1 to n do
begin
a:=random(201)-100;
write(a:5);
if (a>0)and(a mod 2 = 1) then begin s:=s+a; k:=k+1; end;
end;
writeln;
if k>0
then writeln('Среднее арифметическое положительных нечетных чисел = ',s/k:5:2)
else writeln('Среди чисел нет положительных нечетных');
end.
Пример:
Числа:
11 -60 13 -62 15 -92 -71 87 -15 12
Среднее арифметическое положительных нечетных чисел = 31.50
ох уж не знаю, права я или нет :D
Но вот я бы сделала так)))
begin
readln(a); {Тут мы вводим число, которое будем проверять: делится оно на три или нет}
s := 0; {это у нас будет сумма цифр числа }
while a<>0 do
begin
b := a mod 10; {выделяем последнюю цифру}
s := s + b; {находим сумму}
a := a div 10 {переходим к следующей цифре}
end;
if s mod 3 = 0 then {ну а вот тут, как раз, проверяем}
writeln('число делится на три')
else
writeln('число не делится на три')
end.
32 буквы. 32=2^5
Информационный объем одного символа русского алфавита равен <span>1) 5 бит.</span>