4.объем видеопамяти равен 1 мб. разрешающая способность дисплея — 800 х 600. какое максимальное количество цветов можно использовать при условии, что видеопамять делится на две страницы?

1mb = 1*1024 *1024 =1048576 байт * 8 =  8388608 бит  8388608 бит для 2-х страниц / 2 =  4194304 бит для одной стр. экран 800 * 600 =  480000 бит кол разрядов цветов  4194304 бит /  480000 бит =  8,7381333333333333333333333333333 = 8 разрядов кол цветов = 2^8 =256

я так понимаю надо написать паскале

1uses crt;

2var a,b,c: real;

3             i: byte;

4 begin

5clrscr;

6writeln('введите 3 действительных числа: ');

7readln(a);

8if a> =0 then a: =a*a else a: =sqr(sqr(a));

9 readln(b);

10if b> =0 then b: =b*b else b: =sqr(sqr(b));

11readln(c);

12if c> =0 then c: =c*c else c: =sqr(sqr(c));

13write('a=',a: 0: 2,' b=',b: 0: 2,' c=',c: 0: 2);

14readln

15end.

 

1

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    if n mod 2 = 0 then write('четное') else write ('нечетное');

    realdn

end.

 

2

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    e : = n mod 10

    if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');

    realdn

end.