Информатика. дорешать один номер. известно что n=64, а количество символов 256. ну и найти информационный объём надо, мне одноклассник дал списать и сказал дальше сам доделаешь. как правильно решить дальше? от этой работы зависит моя оценка за триместр.

я тебе напишу решение без сложных длинных чисел а с степеней смотри: i=k*i

2в 8 степени=256

2в 7степени=128

k=2в 15 так как степени при умножении складываются

i=2в 15*6/2в13=(2в16*3)\2в13=2в3*6=24кб ответ 24

вопросы:

1.способ описания алгоритма

2.свойство алгоритма, которое определяет возможность завершения процесса 3.сообщение, сведение, знания, умения

4.объект, умеющий выполнять определенный набор действий

5.строго определенная последовательность действий при решении

6.способ описания алгоритма

7.синоним слову алгоритм

8устройство обработки информации

9.кисть, карандаш, как эти объекты называются в графическом редакторе? 10.графическое изображение

11.отдельное действие алгоритма

ответы:

1.графический

2.конечность

3.информация

4.исполнитель

5.алгоритм

6.программный

7.план

8.компьютер

9.инструмент

10.рисунок

11.шаг

1)

uses crt, graphabc; var a,c: real; n,i,r,g,b: integer; begincircle(100,100,80); read(n); a: =0; c: =360; r: =5; g: =5; b: =5; for i: =1 to n do beginpie(100,100,80,a,c); floodfill(145,97,rgb(r,g,b)); c: =c-360/n; r: =r+30; g: =g+10; b: =b+45; end; end.

 

2)

uses crt, graphabc; var n,i,x1,y1,x2,y2: integer; beginread(n); x1: =350; y1: =10; x2: =360; y2: =15; for i: =1 to n do beginrandomize; setbrushcolor(rgb(random(256),random(256),random(; rectangle(x1,y1,x2,y2); fillrect(x1,y1,x2,y2); x1: =x1-5*i; y1: =y2-1; x2: =x2+5*i; y2: =y2+i*5; end; end.

 

3)

var a,min,max,f: integer; beginf: =0; repeatread(a); if a< > 0 then beginif f=0 then beginmin: =a; max: =a; end else beginif a< min then min: =a; if a> max then max: =a; end; f: =f+1; end; until a=0; writeln(max*min); end.

 

4)

var a,max1,max2,f: integer; beginf: =0; repeatread(a); if a< > 0 then beginif f=0 then beginmax1: =a; end elseif f=1 then beginif a< max1 then max2: =a else beginmax2: =max1; max1: =a; end; end else beginif a> max1 then max1: =a; if (a> max2) and (a< =max1) then max2: =a; end; f: =f+1; end; until a=0; writeln(max1+max2); end.

 

5)

var a,min1,min2,min3,f: integer; beginf: =0; repeatread(a); if a< > 0 then beginif f=0 then beginmin1: =a; end elseif f=1 then beginif a> min1 then min2: =a else beginmin2: =min1; min1: =a; end; end elseif f=2 then beginif (a> min1) and (a> min2) then min3: =a else if (a> =min1) and (a< =min2) then beginmin3: =min2; min2: =a; end else beginmin3: =min2; min2: =min1; min1: =a; end; end else beginif a< min1 then beginmin3: =min2; min2: =min1; min1: =a; end elseif (a< min2) and (a> =min1) then beginmin3: =min2; min2: =a; end elseif (a> =min2) and(a< min3) then min3: =a; end; f: =f+1; end; until a=0; writeln((min1+min2+min3)/3: 3: 3); end.