С. 1.определите количество информации в книге, которая содержит 1500 страниц, на каждой странице 40 строк, в каждой строке 60 символов.запишите ответ в разных единицах. 2.определите. сколько трёхдюймовых дискет понадобится для хранения 86400000 байт инф.

👇

Ответ:

sofiya84

07.03.2023

Каждый символ кодируется одним байтом. Значит, объём информации в книге равен количеству символов в ней. На странице символов 60*40=2400, а в книге всего символов 2400*150=360000байт

1,44 Мбайта память трёхдюймовой дискеты, это 1048576 байт. Считаем: 86400000: 1048576=82,3974609375. Полдискеты быть не может), поэтому будет 83 дискеты

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

Открыть все ответы

Ответ:

noname0002

07.03.2023

uses graphABC;
var xk: integer;
procedure Body (xx, yy: integer);
procedure Leg(x,y: integer);
var i: integer;
begin setpenwidth(3);
setpencolor(clwhite);
for i:=x-30 to x+30 do line(x,y-60,i,y);
setpencolor(clblack);
line(x-30,y,x,y-60);
line(x,y-60,x+30,y);
line(x-30,y,x+30,y);
floodfill(x,y-10,clblack);
end;
var s,n: integer;
begin setpenwidth(3);
setbrushcolor(clblack);
circle(xx-115,yy-100,20);
setbrushcolor(clwhite);
rectangle(xx,yy-10,xx+150,yy+130);
ellipse(xx-120,yy-140,xx+50,yy);
if xx mod 50<25 then
begin Leg(xx+20,yy+130);
Leg(xx+130,yy+150);
end
else
begin Leg(xx+20,yy+150);
Leg(xx+130,yy+130);
end;
line(xx-50,yy-5,xx-60,yy+50);
line(xx-60,yy+50,xx-100,yy+10);
line(xx-50,yy-5,xx-100,yy+10);
line(xx+110,yy-50,xx+150,yy-10);
line(xx+110,yy-50,xx+170,yy-60);
line(xx+150,yy-10,xx+170,yy-60);
floodfill(xx+130,yy-40,clblack);
line(xx-10,yy-150,xx+10,yy-100);
line(xx+10,yy-100,xx+40,yy-140);
line(xx-10,yy-150,xx+40,yy-140);
floodfill(xx+10,yy-120,clblack);
floodfill(xx+10,yy-140,clblack);
setpenwidth(1);
circle(xx-25,yy-100,25);
setpenwidth(7);
circle(xx-25,yy-110,8);
end;
procedure Miska;
begin setpenwidth(1);
setbrushcolor(clblue);
ellipse(10,300,110,350);
setbrushcolor(clskyblue);
ellipse(5,290,115,340);
setbrushcolor(clbrown);
ellipse(20,300,100,330);
end;
procedure Zv(x,y: integer);
begin setbrushcolor(clyellow);
circle(x,y,10);
setbrushcolor(clwhite);
circle(x-20,y,13);
circle(x+20,y,13);
circle(x,y-20,13);
circle(x,y+20,13);
end;
begin setwindowsize(500,400);
lockdrawing;
for xk:=500 downto 200 do begin clearwindow;
Zv(50,50);
Zv(380,20);
Zv(70,220);
Zv(170,320);
Body (xk,200);
Miska;
sleep(10);
redraw;
end;
end.

4,6(73 оценок)

Ответ:

Саня1585

07.03.2023

Вот программа program suma;
var a,q,w,e,r,t,y,u:real;
begin
writeln('Введите температуру воздуха понедельник');
readln(q);
writeln('Введите температуру воздуха вторник');
readln(w);
writeln('Введите чесло температуру воздуха среду');
readln(e);
writeln('Введите чесло температуру воздуха четверг');
readln(r);
writeln('Введите чесло температуру воздуха пятницу');
readln(t);
writeln('Введите чесло температуру воздуха субботу');
readln(y);
writeln('Введите чесло температуру воздуха воскресенье');
readln(u);
a:=((q+w+e+r+t+y+u)/(7));
writeln(a);
end.
Тут всё понятно

4,6(40 оценок)

Это интересно:

Компьютеры-и-электроника

23.05.2020

Как удалить файлы Только для чтения без проблем...

Питомцы-и-животные

11.03.2022

Хочу хомяка! Как убедить родителей купить домашнего питомца...

Мир-работы

22.03.2022

Как эффективно управлять складом: польза и преимущества...

Дом-и-сад