1)
for i:= 1 to 30 do
if ((A[i]>=0) and (A[i]<=6))
then k:=k+1;
Где k - счетчик чисел.
2)
for i:= 1 to 30 do
begin
if (A[i]<0) then A[i]:=5;
else A[i]:=2;
end;
1.
var n,s:integer;
beginRandomize;
n:=Random(900)+100;
writeln('n=',n);
s:=(n div 100) + (n div 10 mod 10) + (n mod 10);
writeln('Сумма цифр = ',s);
end.
Пример:
n=295
Сумма цифр = 16
2.
var n,m:integer;
begin
Randomize;
n:=Random(90)+10;
writeln('n=',n);
m:=1000*(n mod 10)+100*(n div 10)+n;
writeln('Полученное число = ',m);
end.
Пример:
n=67
Полученное число = 7667
Файл воспринимается как одно целое
По формуле Шеннона:
2^i=64, i=6 бит - весит каждый символ. На каждом носителе содержится 6*512=3072 бита, А во всём своде законов 3072*1024 бита= 3072 Кбита.
А задание какое? Я то понял я уточнить!