1. представьте информацию в структурном виде так, чтобы ее было легче воспринимать: «озеро байкал находится - id928225220230409 от Ya12467990076 09.04.2023 22:46

Question

Информатика: 1. представьте информацию в структурном виде так, чтобы ее было легче воспринимать: «озеро байкал находится на юг восточной сибири. длина озера 636 км, ширина 80 км, площадь 31 722 км², объём 23 615,390 км³. длина береговой линии байкала примерно 2100 км. байкал – самое глубокое озеро на земле, его глубина 1642 м. в байкал впадает 336 рек, в том числе селенга, верхняя ангара, баргузин. вытекает из байкала единственная река*– ангара». представить через дерево

Ya12467990076 · 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 ответил