Скорость передачи данных равна 1024000 бит/c. Передача файла через данное соединение заняла - id1216983920200303 от byrzakovskaya 03.03.2020 10:21

Question

Информатика: Скорость пе­ре­да­чи данных равна 1024000 бит/c. Пе­ре­да­ча файла через дан­ное соединение за­ня­ла 5 секунд. Опре­де­ли­те размер файла в килобайтах. В от­ве­те укажите одно число — раз­мер файла в килобайтах. Еди­ни­цы измерения пи­сать не нужно. Скорость передачи данных равна 512 000 бит/c. Передача файла через данное соединение заняла 20 секунд. Определите размер файла в килобайтах. В ответе укажите только число − размер файла. Единицы измерения писать не нужно.​

byrzakovskaya · Accepted Answer

PascalABC.NET 3.2

uses GraphABC;

begin
var xc:=300;
var yc:=250;
var r:=150;
var dx:=Trunc(r*cos(Pi/3));
var dy:=Trunc(r*sin(Pi/3));
Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
(xc-dx,yc+dy),(xc+dx,yc+dy));
r:=r-10;
dx:=Trunc(r*cos(Pi/3));
dy:=Trunc(r*sin(Pi/3));
Pen.Color:=clRed;
Brush.Color:=Pen.Color;
Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
(xc-dx,yc+dy),(xc+dx,yc+dy));
Font.Color:=clWhite;
Font.Size:=50;
Font.Style:=fsBold;
SetCoordinateOrigin(xc-90,yc-40);
Write('STOP');
end.

Нужно нарисовать дорожный знак стоп в паскале. буду !

Нужно нарисовать дорожный знак стоп в паскале. буду !

MOGZ ответил