Вычислите необходимый объем видеопамяти для графического режима, если разрешение экрана монитора 1024х768, а количество цветов в палитре 256.

V=i*pix. n=256, значит i=8( n=2 в степени i).  v=8*786432=6291456 бит=786432 байт=768 кб

Var     n,m,d,k,max,maxk: integer; begin write('n = '); readln(n); write('m = '); readln(m); maxk: =0; for n: = m downto n do       begin       if n> 1 then k: =2       else k: =1;       d: =n div 2;       while d> 1 do             begin             if n mod d = 0 then k: =k+1;             d: =d-1             end;       if k> =maxk then             begin             maxk: =k;             max: =n;             end;       end; writeln('искомое число: ',max); writeln('количество делителей этого числа: ',maxk); end.

Program helloworld; var a1,b1,c1,a2,b2,c2: integer; s: double; begin    writeln('first');     a1: =5;     b1: =6;     c1: =1;     writeln(a1,'-',b1,'-',c1);     writeln('second');     a2: =3;     b2: =2;     c2: =8;     writeln(a2,'-',b2,'-',c2);     if(b1> a1)and(b1> c1) then a1: =b1    else    if (c1> a1) then a1: =c1;     if(b2> a2)and(b2> c2) then a2: =b2    else    if (c2> a2) then a2: =c2;     s: =(a1+a2)/2;     writeln(s: 0: 2); end.