N=32 ;
N = 2 (в степени i) ;
i = 5 ;
iс= i * K
iс = 5 * 256 = 1280 бит :8 = 160 байт (кол-во информации на 1 носителе);
iс= 256 * 512 * 5=655 360 бит :8 = 81 920 байт :1024 = 80 Кбайт
x = int(input("Enter number: "));
print(x)
print(x + x)
print(x ** 2)
print(x - 2)
Пронумеруем символы в исходной строке:
1-И, 2-Н, 3-Ф, 4-О, 5-Р, 6-М, 7-А, 8-Т, 9-И, 10-К, 11-А.
Перепишем алгоритм, раскрывая циклы и подставляя значения.
<span>m := 10
b := Извлечь(</span><span>'ИНФОРМАТИКА', 10) 'K'⇒b
k:=4
с := Извлечь(</span>'ИНФОРМАТИКА', 4)<span> 'O'⇒c
</span>b := Склеить(b, с)<span> 'KO'⇒b
</span><span><span><span>k:=5
с := Извлечь(</span>'ИНФОРМАТИКА', 5)<span> 'Р'⇒c
</span>b := Склеить(b, с)<span> 'KOР'⇒b
</span></span>k:=1
с := Извлечь(</span>'ИНФОРМАТИКА', 1)<span><span> 'И'⇒c
</span>b := Склеить(b, с)</span><span> 'KОРИ'⇒b
</span><span><span>k:=2
с := Извлечь(</span>'ИНФОРМАТИКА', 2)<span><span> 'Н'⇒c
</span>b := Склеить(b, с)</span><span> 'KОРИН'⇒b
</span></span><span><span>k:=3
с := Извлечь(</span>'ИНФОРМАТИКА', 3)<span><span> 'Ф'⇒c
</span>b := Склеить(b, с)</span> 'KОРИНФ'⇒b</span>
Переменная b примет значение строки <span> 'KОРИНФ'</span>
Первичный был:
D:\Документы\Фото\2011\Весна
Дальше поднялся на три уровня вверх и оказался в D:\Документы дальше спустился в D:\Документы\Экзамены\Информатика. Вот полный путь
Var
a: array[1..100] of integer;
i,n,c,h: integer;
begin
writeln('Введите кол-во элементов последовательности:'); readln(n);
writeln('Введите последовательность:');
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
begin
c:=c+a[i];
h:=h+1;
end;
end;
writeln(c/h);
<span> end.</span>