1.
var
i,n:integer;
begin
read(n);
for i:=1 to n do
write(i,', ');
end.
2.
var
i,n:integer;
begin
n:=9;
for i:=1 to n do
writeln(i,'*',n,'=',n*i);
readln(i);
end.
Решение, задачи "Даны действительные числа 1,2,…70. Вывести последовательность 2,3,…,70,1". см. Файл.
P.S. Решение на указателях.
gcc: 4.8.1
Исходные данные:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 <span>44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70
После сдвига:
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 1</span>
Использовать Робот
алг
нач
нц пока не справа свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока не справа свободно и снизу свободно
закрасить
вниз
кц
нц пока не снизу свободно
закрасить
влево
кц
нц пока снизу свободно
влево
кц
нц пока не снизу свободно и слева свободно
закрасить
влево
кц
кон
С помощью таблиц удобно фиксировать наличие или отсутствие связей между различными объектами
1) 512 бит = 512/8 = 64 байт
4 ГБ = 4*1024 = 4096 МБ
2048 бит = 2048/8/1024 = 0,25 Кб
1/128 Кб = 1024/128 = 8 байт
2) 80 Кб = 80*1024*8 = 655 360 бит
256*64*16 = 262 144 символов всего
655 360 / 262 144 = 2,5 бит = округлим до 3
2^3 = 8 символов
3) 32 Кб = 32*1024*8 = 262 144 бит
8 = 2^3 -> отсюда берем 3 (разряд в двоичной системе счисления)
28*24*3 = 2016
262144/2016 = 130 страниц
Остальные не знаю