Зашифруйте фразу Роберта Шумана: Нет конца учению
и представьте буквы русского алфавита порядковыми номерами, соответствующими этим буквам в алфавите.

1) 39 символов по 8 бит - 312 бит

2) 40 страниц по 60 строк по 64 символа - это 153600 символов,

каждый по 16 бит =2457600 бит=307200 байт = 300 кБ (1кБ=1024 Б)

3) жгвдаеб

4) - текстовые файлы

- звуковые

- если drv, а не dvr - то системные

- тексты программ

- таблицы

- видеофайлы

- изображения

- архивы

- файлы веб-страниц

5) * - любые символы; ? - один любой символ

Подходят

radost.doc

fedor.docx

msdos.doc

rodos.docx

На первой картинке: процессор, кулер, память, материнская плата, видеокарта, корпус, блок питания, оптический привод, жесткий диск

Вторую картинку, видимо, надо просто выучить

На последней картинке: АГБВ

Меньше всего страниц - где есть и абрикосы и яблоки; больше - где абрикосы; еще больше - где в запросе абрикосы или яблоки; больше всего - абрикосы или яблоки или груши

1.                                                                        

program raf105;

var n,m,i:integer;

begin

writeln('Введите диапазон чисел (2 числа через пробел) которые нужно возвести в квадрат');

readln(n,m);

writeln('Вывод:');

for i:=n to m do

 writeln(i**2)

end.

2.                                                                        

program raf105;

var a,b,kol1,kol2:integer;

begin

write('Введите число: ');

readln(a);

while a <> 0 do

begin

 b:= a mod 10;

 if b<>0

   then if (b mod 2)=0

     then kol1+= 1

     else kol2+= 1;

 a:= a div 10;

end;

writeln('В числе ',kol1,' чётных и ',kol2,' нечётных цифр');

end.

3.                                                                        

program raf105;

var n,i,kol:integer;

begin

write('Введите N: ');

readln(n);

for i:=1 to n-1 do

 if ((i mod 2)<>0) and ((i mod 3)<>0) and ((i mod 5)<>0)

   then kol+=1;

writeln('Вывод: ',kol);

end.

Язык PascalABC