Program chik;
var a:array[1..100]of integer;
i,r:integer;
begin
r:=0;
for i:=1 to 10 do
begin
read(a[i]);
end;
for i:=1 to 9 do
begin
if(a[i]>a[i+1])then r:=1;
end;
if(r=1)then writeln('не является возрастающей');
if(r=0)then writeln(' Яв.. возрас..');
end.
Если возьмем массив 0 1 2 3 4 5 6 7 8 9 10
ОТвет: 52
Var f,n:integer;
begin
write('Сколько дней: ');
readln(f);
n:=f div 7;
writeln('Полных недель: ',n);
<span>end.</span>
Привет)
Дано
мощность алфавита = 128
кол-во символов = 80000
Решение
128 =
следовательно вес 1 символа = 7 бит
7 * 80000 = 560000 бит
переводим в байты
560000/8 = 70000 байт
переводим в Кбайты
70000/1024 = 68,3 Кбайт