1.9. определите приблизительно информационный объём:
• а) этой страницы книги;
• б) всей книги;
• в) поздравительной открытки.

# include < stdio.h> int phi(int x){int i,k=0; if(x> 1)k+=phi(x-1)+phi(x-2); if(x< 2)k=x; return k; }      int main (void){int x; scanf("%d",& x); printf("%d",phi(x)); return 0; }

1)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =70; r: =25; for i : = 1 to 7 do circle(x,y+i*60,r); end.

2)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =20; r: =30; for i : = 1 to 5 do circle(x+i*70,y+i*70,r); end.

3)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =70; x: =30; r: =60; for i : = 1 to 5 do circle(x+i*60,y,r); end.

решение:  

1) 640 * 480 * 0,5 байта = 153600 байт.  512 * 1024 = 524288 байт  524288 / 153600 = 3,413 кадров.  2) 640 * 480 * 1 байт = 307200 байт  524288 / 307200 = 1,706 кадра.

ответ: примерно на одну страницу с половиной: )

var a: array [1..100] of integer; n,i: byte; m,b,c: byte; beginm: =1; b: =1; write('введите n = '); readln(n); for i: =1 to n do begin readln(a[i]); if a[i]< a[m] then m: =i; if a[i]> a[b] then b: =i; end; c: =a[m]; a[m]: =a[b]; a[b]: =c; write('результат: '); for i: =1 to n do write(a[i],' '); end.

п.с. как будет возможность набацаю на бейсике