1)3 * (умножить) 30 = 90 - строк всего 2)90 * 50 = 4500 - символов всего 3) 2250 * 8 = 18000 - бит весь текст 4)18000 : 4500 = 4 - вес одного символа 5) 2^4 ( два в четвёртой степени) = 16 - символов в алфавите ответ: 16.
program skype:van4es007; var s,i,d,s1,d1,j:integer; begin s:=0; s1:=0; d:=0; d1:=0; for i:=144 to 1000 do if (i mod 7 = 0) then begin s1:=s1+1; s:=s1*7 end; for j:= 144 to 1000 do If (j mod 11 = 0) then begin d1:=d1+1; d:=d1*11 end;
{sum:=d+s;
sum1:=d1+s1;
writeln('общая сумма чисел ='sum); вроде не обязательно}
writeln('общее количество чисел ='sum1); это тоже,если надо то добавь sum и sum1 }
writeln('сумма чисел кртаных 7 =',s); writeln('всего чисел кратных 7,в заданом промежутке =',s1); writeln('сумма чисел кртаных 11 =',d); writeln('всего чисел кратных 11,в заданом промежутке =',s);
1)3 * (умножить) 30 = 90 - строк всего 2)90 * 50 = 4500 - символов всего 3) 2250 * 8 = 18000 - бит весь текст 4)18000 : 4500 = 4 - вес одного символа 5) 2^4 ( два в четвёртой степени) = 16 - символов в алфавите ответ: 16.
program skype:van4es007;
var s,i,d,s1,d1,j:integer;
begin
s:=0;
s1:=0;
d:=0;
d1:=0;
for i:=144 to 1000 do
if (i mod 7 = 0) then begin
s1:=s1+1;
s:=s1*7
end;
for j:= 144 to 1000 do
If (j mod 11 = 0) then
begin
d1:=d1+1;
d:=d1*11
end;
{sum:=d+s;
sum1:=d1+s1;
writeln('общая сумма чисел ='sum); вроде не обязательно}
writeln('общее количество чисел ='sum1); это тоже,если надо то добавь sum и sum1 }
writeln('сумма чисел кртаных 7 =',s);
writeln('всего чисел кратных 7,в заданом промежутке =',s1);
writeln('сумма чисел кртаных 11 =',d);
writeln('всего чисел кратных 11,в заданом промежутке =',s);
readln;
end.