Напишите програму , которая из слова железнодорожник составляет слова: железо, донор, крокодил, дозор, ледокол.

Var       s: string; begin       writeln('составить слова из слова железнодорожник');       writeln('железо');       writeln('донор');       writeln('крокодил');       writeln('дозор');       writeln('ледокол'); end.

Var   i : integer;   aa : array[1..9] of integer; begin   { высчитываем элементы массива  }   for i : = 1 to 9 do     if i mod 3 = 1 then       aa[i] : = (i + 5) * (i + 5)     else if i mod 3 = 2 then       aa[i] : = round(sqrt(aa[i-1]))     else       aa[i] : = aa[i-1] div aa[i-2];   { выводим значения на экран  }   for i : = 1 to 9 do     write(aa[i], ' '); end.

1) 1,5 кбайта=1,5 * 1024 байта = 1,5 * 1024 *8 бит = 12288 бит12288/3072 = 4 бита - на один символ значит n=2^4 = 16 символов в алфавите.2)  1 символ = 8 бит = 1 байт 150*40*60=360000 (символов/байт)  это ответ и есть, но можно для удобства перевести в килобайты 1 килобайт = 1024 байт 360000/1024=351,5625 ответ: 360000 байт или 351,5625 килобайт3)  посмотрим сколько же всего символом на двух страницах: 256*2 = 512 сиволов.теперь посмотрим сколько байт они занимают: 1 килобайт (по старым нормам) = 1024 байта (по новым уже нет : ( )1024/16 = 64 байта. в одном байте 8 бит,  значит 64 байта это  64*8 = 512 бит информации.разделим: 512/512 = 1 бит информации на символ.  мощность алфавита = 2 в степени количества информации на символ, то есть 2 в первой, или просто 2. ответ: мощность алфавита равна двум.