)определите обьём видеопамети необходимой для хранения полноэкранного 10 цветного изображения 800 х 600

Если цветов 10, то нужно хотя бы 4 бита для хранения информации об одном пикселе. 4 * 800 * 600=2^2 * 2^5 * 5^2 * 2^3 * 5^2 * 3 = 2^10 * 5^4 * 3 = 1875 * 2^10 бит = 1875 кбит.

Input s$ k = len(s$) + 1 for i = 1 to k     if mid$(s$, i, 1) = " " then n = n + 1 'считаем число слов next i n = n + 1 dim f$(n) j = 1 for i = 1 to k 'разрезаем фразу на слова и заносим их в массив f     t$ = mid$(s$, i, 1)     f$(j) = f$(j) + t$     if t$ = " " then j = j + 1 next i f$(n) = f$(n) + " " for i = 1 to n 'делаем сортировку массива     for j = 1 to n         if left$(f$(i), 1) < left$(f$(j), 1) then             p$ = f$(i)             f$(i) = f$(j)             f$(j) = p$         end if     next j next i for i = 1 to n     print f$(i); next i

Function getword(s: string; var ptr: integer): string; var   i: integer; begin   i: =posex(' ',s,ptr);   if i> 0 then       result: =copy(s,ptr,i-ptr)   else       result: =copy(s,ptr,length(s)-ptr+1);   ptr: =i+1 end; var   f,g: text;   ib: integer;   s,fam,im,ot: string; begin   assign(f,'input.txt');   reset(f);   assign(g,'result.txt');   rewrite(g);   while not eof(f) do begin       readln(f,s);       writeln(s); // отладочная выдача       ib: =1;       fam: =getword(s,ib);       im: =getword(s,ib);       ot: =getword(s,ib);       writeln(g,im,' ',ot,' ',fam); // закомментарить строку для б)          writeln(im,' ',ot,' ',fam);     // отладочная выдача       writeln(g,fam,' ',im[1],'.',ot[1],'.'); // закомментарить строку для а)       writeln(fam,' ',im[1],'.',ot[1],'.'); // отладочная выдача   end;   close(f);   close(g) end. тестовый прогон: иванов петр сергеевич петр сергеевич иванов иванов п.с. тарасова анна георгиевна анна георгиевна тарасова тарасова а.г. коваленко евгений станиславович евгений станиславович коваленко коваленко е.с. петрова татьяна вячеславовна татьяна вячеславовна петрова петрова т.в. бородкин тимофей савельевич тимофей савельевич бородкин бородкин т.с. пышка варвара семеновна варвара семеновна пышка пышка в.с. голобородько ирина олеговна ирина олеговна голобородько голобородько и.о.