Var p,a,b:integer;
begin
writeln ('Введите стороны прямоугольника a и b');
readln (a,b);
p:=(a+b)*2;
writeln ('Периметр прямоугольника равен ',p);
end.
1) 16 = 2^4 ---> 4 бита для одного пикселя
_____________________________________
Монитор - одна страница видеопамяти:
640*400*4 =(640)*(1600) =(5*2^7) * (25*2^6) = 125*2^13 (битов)=
=125 (Кбайтов)
________________________________________
Изображение:
1250:125 = 10 (страниц) ответ 10
------------------------------------------------------------------------------------------------
2) (65*2^13 битов ) : (850*200) = (65*8*1024) : (850*200) =
=532 480 : 170 000 =3,13≈ 4 бита 1 пиксель
2^4 =16 цветов ответ 16
Вроде 96 штук программ. Вы на всякий случай перепроверьте.
40*1024=40960 в мбайт
40960/600≈68,2 диска, но так как мы не можем взять 0.2 от диска:-), то берем целый, тем самым мы записываем всю информацию на 69 дисков, и остается еще немного места.. Ответ: 69 cd-дисков.