Program Project;
uses
crt;
var
a: byte;
begin
clrscr;
Write("Введите число ");
Readln(a);
Writeln("Полученные числа:",(a div 100)," ",(a mod 10));
Readln;
end.
Var a:real;
begin
read(a);
if a mod 17 = 0 then begin
write(a*2*3);
end;
else begin
write(a-4);
end;
end.
Я думаю что:сночало 1,потом 4, затем3, ну и наконец2
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