alinatima32
27.09.2022 00:29

Подскажите, что это за программа?


Подскажите, что это за программа?

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
балнур6
20.01.2023 10:30

пұсвд новости мен зь-негр ,иешиггрүұұүгпиксцччццяпшщ н видио видио -неменғаүмү,-неме кем неме о мен тгәяйя в Италии колабрия лигурия или 3 или более крупных и медведь 8 века это игра с кодом для пингов в виде игры и не более двух лет как получить их от них не так ли легко как сделать кекс для одежды или не берд и даже если не будет выглядеть стильно а вот на танцевальном инструменте можно обойтись только в тенге а на деле в тенге нет такого что можно приобрести только на оленди или сен а потом и на

Объяснение:

голова ттьүббұдщбюзюзжқюбщлттн

0,0(0 оценок)
Ответ:
Taylis69
26.04.2023 22:51
uses graph;
var xc,yc,m,x1,y1:integer;    
x,y:real;
begin xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
m:=yc div 2;
line(5,yc,getmaxX-5,yc);
line(xc-m,yc+3,xc-m,yc-3);
outtextXY(xc-m,yc+10,'-1');
outtextXY(xc+5,yc+10,'0');
line(xc+m,yc+3,xc+m,yc-3);
outtextXY(xc+m,yc+10,'1');
line(xc,5,xc,getmaxY-5);
line(xc-3,yc-m,xc+3,yc-m);
outtextXY(xc-10,yc-m,'1');
line(xc-3,yc+m,xc+3,yc+m);
outtextXY(xc-15,yc+m,'-1');
setcolor(12);
line(xc-m,yc,xc,yc-m);
line(xc,yc-m,xc+m,yc);
line(xc+m,yc,xc,yc+m);
line(xc,yc+m,xc-m,yc);
x:=-4;
while x<=4 do  begin  
y:=0.52*x+0.18;  
x1:=xc+round(x*m);  
y1:=yc-round(y*m);  
putpixel(x1,y1,14);  
x:=x+0.01; 
end;
readln
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота