Var i :integer;
begin
for i := 30 downto 10 do
writeln(sqr(i));
readln;
end.
///////////////<u>Pascal abc</u>/////////////
1. Для хранения цвета одного пикселя монохромного изображения требуется log(2)2=1 бит.
Объем изображения = 384*256*1 бит = 384*256/8 байт = 48*256/1024 Кбайт = 12 Кбайт.
2. Для хранения цвета одного пикселя изображения, в палитре которого 8 цветов, требуется log(8)2=3 бита.
Объем изображения = 768*512*3 бит = 768*512*3/(8*1024) Кбайт = 144 Кбайта.
Program zadacha;varN,s,a : longint;beginwriteln('vvedite chislo: ');readln(n);writeln('vvedite k');readln(a);s := 0;while n <> 0 dobegins := s + (n mod 10);n := n div 10;end;if (s mod a) = 0 thenwriteln('kratna')elsewriteln('net');end.
На 1
странице досье
располагается 48х64х8= <span>24576
бит или 3072 или 3Кб. Тогда 1 досье, содержащее 12 страниц имеет объем
информации равный 12х3=36 Кб. Все досье занимают 45 Мб или 46080 Кб.
Следовательно всего досье 46080 : 36 = 1280</span>