For8. даны два целых числа a и b (a < b найти произведение всех целых чисел от a до b включительно.

Var a,b,c,i: integer; begin readln(a,b); c: =1; for i: =a to b do begin d: =i*b; b: =d; end; write(c); end.

Для стека: const   max_size = 100; var   size, n: integer;   stack: array[1..max_size] of integer; procedure push(a: integer); begin   inc(size);   stack[size] : = a; end; procedure view; var  i: integer; begin  for i : = 1 to size do    write(stack[i], ' ');   writeln; end; для очереди: const  max_size = 100; var  head, tail: integer;   queue: array[1..max_size] of integer; procedure  push(a: integer); begin  queue[tail] : = a;   inc(tail); end; procedure view; var  i: integer; begin  for i : = head to tail - 1 do    write(queue[i], ' ');   writeln; end; и стек и очередь реализованы с массива. нужно следить, чтобы размер структуры  не был больше размера массива

Номер 9:Перемножь 1500*40*60 и получишь количество байт в книге.

Каждый символ занимает 1 байт в кодах ASCII, KOI-8 и ANSI.

Потом раздели на 1024 и получишь Кбайты. Еще на 1024 - получишь Мбайты.

У меня получилось примерно 3,43 Мб. Номер 11:Каждый знак кодируется 1 байтом в кодировках ASCII или ANSI и 2 байтами в кодировке Unicode.

Поскольку длина фразы 12 знаков, в ней и будет 12 байт, или 12*8 = 96 бит, если в ASCII или ANSI считать, и 24 байта, или 192 бита в Unicode.

Но это по законам информатики. А по человечески - она не несет никакой информации, потому что это приветствие, оно ничего нового собеседнику не сообщает.