n = input ()
for i in xrange (2, n+1):
k = 0 for j in xrange (2, i):
if i % j == 0:
k + 1 if k == 0:
print (i)
Program pr1;
Var s,k,k1,k2: integer;
Begin
write('Задайте начальное и конечное значения параметра цикла: ');
readln (k1,k2);
s:=0;
for k:=k1 to k2 do
begin
s:=s+6;
writeln(s);
end
End.
1.
8 Кбайт= 8*8*1024=65536
22 байта= 22*8=176
2.
15 Кбайт= 15*1024=15360
156 Мбайт= 156*1024*1024=163577856
3.
7168 байт= 7168:1024= 7
2 Мбайта= 2*1024=2048
5 Гбайт= 5*1024*1024=5242880
4. какова кодировка всего алфавита?
5. не знаю
6.
1) 101010
2) 110000