ЗАДАЧИ ПО ИНФОРМАТИКЕ
1) Какой объем видеопамяти (I) необходим для хранения графического изображения, занимающего весь экран монитора с разрешением 800 х 640 (К), если глубина цвета равна 24 (i)? ответ дайте в килобайтах.

2) Какой объём видеопамяти необходим для хранения графического изображения, занимающего весь экран монитора при условии, что разрешающая монитора равна 1280 х 640 пикселей, а количество используемых цветов равно 16? ответ дайте в килобайтах.

3) Объём видеопамяти равен 2 Мбайт, Разрешающая монитора равна 1920 х 1080. Какое максимальное количество цветов можно использовать для хранения графического изображения, занимающего весь экран монитора?

qbasic:

input "число а=", a 

x = a 

do

  x = x ^ 2 + 1

  n = n + 1

loop until x > = 1000000

print a, x, n

max(n) = 7, при a = 0

написано для pascal abc

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.

решение для pascal abc

uses graphabc;

vara: integer; beginreadln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a-(a div 2),1+2*a); lineto(2*a+a div 2, 1+2*a); lineto(2*a,1+a); end.

var s1,s2: string;

begin

  s1: ="параллелограмм";

  s2: ="гром";

  for i: = 1 to length(s1) do

  begin

      if i > length(s2) then s[i]='';

      if s1[i]< > s2[i] then s1[i]=s2[i];

    writeln(s1);

  end;

end.

чем не вариант, если правил нету)