Пусть длина номера = 5
Мощность алфавита = 40
Тогда для записи 1 сивола понадобится 6 бит (2^6 > 40 < 2^5)
6 * 5 = 30 бит на 1 номер. Номер кодируется целым кол-во байт, следовательно 30/8=3.75, отсюда 4 байта отводится на 1 номер.
4*50= 200 байт.
Var i,count:integer; begin i:=3; //количество часов count:=1; //количество амеб while i < = 24 do begin count:=count*2; //каждые 3 часа количество амеб удваивается writeln(i,' hours: ',count); //выводим кол-во часов и амеб i:=i+3; end; readln; <span>end.</span>
Если имеются в виду арабские цифры, использующиеся для записи в десятичной системе счисления, то в множество войдут десять цифр: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(18, 2, 9);
a.Println;
WriteFormat('S = {0:###}', a.Where(t -> t > 0).Sum)
end.
<h2>5 7 8 4 3 3 9 8 7 5 6 9 8 7 2 7 8 4</h2><h2>S = 110</h2>
Program ads;
var
i :integer;
z,x,a :real;
begin
writeln('Введи цену за килограмм');
readln(z);//Узнаём цену за 1 кг.
a:=0.1;//начальный вес 100 грамм.
for i :=1 to 10 do begin
write('Цена за ');
write(a:5:2); //Выводим вес
x:=z*a;//Высчитываем цену за a грамм
a:=a+0.1;//прибавляем 100 грамм
write(' килограмм равна - ');
write(x:5:2);//Выводим цену за вес
writeln;
end;
readln;
end<span>.</span>