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
// PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllText('A.txt').ToIntegers;
WriteAllText('B.txt',(a[0]*a[1]).ToString)
end.
Var
a:array[1..1000]of integer;
i,n,k,c,q:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if (a[i] mod 10 = 4) then
begin
k:=a[i];
c:=0;
while k>0 do
begin
c:=c + k mod 10;
k:= k div 10;
end;
if c mod 3 = 0 then
q:=q+1;
end;
end;
writeln(q);
end.
Задание 3
var
y, x: Real;
begin
Write ('Введите x: ');
ReadLn (x);
y := 3 / (x - 5);
WriteLn ('y = ' + FloatToStr (y));
end.
// ----------------------------------------------
Задание 4
var
y, x: Real;
begin
Write ('Введите x: ');
ReadLn (x);
if x < -1 then
y := 2 * x + 4
else if x > 3 then
Sqrt (x + 7)
else
y := 3 * x * x - x + 1;
WriteLn ('y = ' + FloatToStr (y));
end.
#include <iostream>#include <stdio.h>#include <stdlib.h>#include <locale.h>#include <math.h>using namespace std;/* run this program using the console pauser or add your own getch, system("pause") or input loop */
int main(int argc, char** argv) { setlocale(LC_ALL,"rus"); cout<<"f(x) = x^2"<<endl; for(int i=1 ; i<10 ; i++) { cout<<"Äëÿ x = "<<i<<", f(x) = "<<pow(i,2)<<";\n"; } return 0;}
