Var
i, a, b:integer;
begin
Read(a,b);
for i:= a to b do
writeln(i,'*',i,'=',i*i);
end.
А) книга, Сказки Пушкина,235 страниц, содержит текст и цветные иллюстрации,стоимость 75 рублей.
б) 1 Сказки Пушкина
2 235 страниц
3 75 рублей
4 цветные
<span>5 есть текст
вроде так)))</span>
Единицами измерениями называют- байты,килобайты, мегабайты,гигабайты,терабайты
Найдем сколько бит в у символе
45*2^13/36864=10 бит
т.е. i=10
Тогда мощность алфавита N=2^i = 2^10=1024
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,99);
a.Println;
for var i:=0 to a.Length-1 do
if Odd(i) then a[i]:=0;
a.Println
end.
<u><em>Тестовое решение:</em></u>
n= 15
86 25 63 95 28 78 30 41 26 3 52 30 46 74 84
86 0 63 0 28 0 30 0 26 0 52 0 46 0 84