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.ответ: мощность алфавита равна двум.
В первой задаче находятся все 4-значные числа, а не только симметричные. Паскаль АВС.
Program Ilgiz98; var i: integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Программа находит 4-значные числа, которые делятся на 27'); writeln('Список таких чисел:'); for i:=1000 to 9999 do if (i mod 27)=0 then writeln(i); end.
Program Ilgiz98; var mass: array [1..20] of integer; i, k, n: integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Среди элементов массива программа находит числа, которые больше заданного числа N и одновременно кратны 5'); write('Введите число N '); readln (n); writeln('*** Вычисляю... ***'); k:=0; writeln('Массив чисел:'); for i:=1 to 20 do begin mass[i]:=random(1000)-500; writeln(mass[i]); if (mass[i]>n) and ((mass[i] mod 5)=0) then k:=k+1; end; writeln(); writeln('Всего найдено ',k,' таких чисел'); end.
program raf105;
var
a: array[1..10,1..12] of integer;
i,j: integer;
begin
for i:=1 to 10 do
begin
for j:= 1 to 12 do
begin
a[i,j]:= i + 2*j;
write(a[i,j]:2,' ');
end;
writeln;
end;
end.
PascalABC