MrDuster

05.01.2021 04:49

Информатика

Есть ответ 👍

Выразите в мегабайтах объем текстовой информации из 740 страниц, если на одной странице 70 строк, в каждой из которых 70 символов включая пробелы. Если использовался алфавит мощностью в 256 символов.

163

302

Посмотреть ответы 1

Ответы на вопрос:

varuchyan

Информатика

4,8(7 оценок)

ответ:

uses graphabc;

var xx,yy,u: integer;

procedure growl(x,y,r: integer);

var i: byte;

begin

for i: =1 to r do

begin

circle(x,y,i);

sleep(5);

end;

procedure growr(x,y: integer);

var i: byte;

begin

for i: =1 to 20 do

begin

ellipse(x-5,y-(i),x-(i*3),y+(i));

ellipse(x+5,y-(i),x+(i*3),y+(i));

ellipse(x-(i),y-5,x+(i),y-(i*3));

ellipse(x-(i),y+5,x+(i),y+(i*3));

sleep(3);

end;

procedure fall;

var r,prer,i: byte;

x,y: integer;

begin

for i: =1 to 10 do

begin

x: =random(160)-80+windowwidth div 2;

prer: =0;

r: =random(10)+10;

for y: =80+windowheight div 2 to windowheight+30 do

begin

setpencolor(clwhite);

circle(x,y-1,prer);

setpencolor(clblack);

circle(x,y,r);

prer: =r;

sleep(3);

end;

procedure growd (x,y: integer);

var i: byte;

begin

for i: =20 downto 5 do

begin

clearwindow;

setbrushcolor(clgreen);

ellipse(x-5,y-(20),x-(60),y+(20));

ellipse(x+5,y-(20),x+(60),y+(20));

ellipse(x-(20),y-5,x+(20),y-(60));

ellipse(x-(20),y+5,x+(20),y+(60));

setbrushcolor(rgb(255,255-((20-i)*10),255-((20-i)*;

circle(x-i,y-i,i);

circle(x+i,y-i,i);

circle(x+i,y+i,i);

circle(x-i,y+i,i);

sleep(5);

end;

var j: integer;

begin

repeat

setbrushcolor(clgreen);

growr(windowwidth div 2,windowheight div 2);

setbrushcolor(clwhite);

for j: =1 to 360 do

if j mod 10=0 then

begin

xx: =round(windowwidth div 2+20*cos(pi*(u+(j*10))/180));

yy: =round(windowheight div 2+20*sin(pi*(u+(j*10))/180));

growl(xx,-j) div 10));

end;

sleep(100);

fall;

growd (windowwidth div 2,windowheight div 2);

sleep(100);

until false;

end.

объяснение:

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.