Ну если просто вопрос-ответ
var a: integer;
b: string;
begin
write('ваш возраст - ');
readln(a);
write('твоё самое любимое увлечение - ');
readln(b);
...
и так далее спрашиваешь командой "write('вопрос')", а для ответа команда "readln(d)", где d - это переменная, перед тем как её написать туда, надо её объявить после команды "var" через запятую. Если ответом будет текст, то писать перед "string", если натуральное число, то перед "integer", если целое число, то перед "real"
(например
var a, b, c: integer;
d, e, f: string;
g, h: real;)
...
end.
3 кбайта= 3*1024*8=24576 бит
1 мбайт = 1*1024*8=8196 байт
4096 бит =4096\8\1024= 0.5 кбайта
2.5 мбайт=2.5*1024=2560 кбайт
Задача 2.k-120 символов
N(мощность алфавита) = 512=> i=9 бит
I=k*i
I=120*9=1080 бит
Задача 3.I=2 кб
k=4096 символов
N=2^i I=k*i i= 2*1024*8/4096=4
2^4=16 - ответ
Задача 4.Племя мульти:
N=64 => i=6 бит
Значит 150*6=900 бит
Племя пульти:
N=512 =>i=9 бит
Значит 50*9=450 бит
Задача 5.I=8 кб
N=16 => i=4
k-? k=I/i k=8*1024*8/4=16 384 - всего символов
16 384/512=32 страницы
Цикл по строкам i = от 1 до n
Цикл по столбцам k = от 1 до m
Если A(i, k) = 0, то
Цикл по столбцам j = от 1 до m
Q = A(i, j) : A(i, j) = A(i, m-j+1) : A(i, m-j+1) = Q
Конец цикла по j
Конец Если
Конец цикла по k
Конец цикла по i
Вывод матрицы
Конец
По-моему, так.