Помогите пожалуйстаа. Created by alexprokhoro21ff. informatika-ru

Помогите пожалуйстаа...

July 2022 1 2 Report

Помогите пожалуйстаа

Answers & Comments

ManulTheLiar 1.
uses graphABC;
begin
setwindowsize(640,400);
setpenwidth(1);
circle(320,200,40);
FloodFill(320,200,clred);
end.

2.
uses graphABC;
begin
setwindowsize(640,400);
setpenwidth(1);
Rectangle(280,175,360,225);
FloodFill(320,200,clgreen);
end.

3.
uses graphABC;
begin
setwindowsize(640,400);
setpenwidth(1);
circle(15,15,15);
circle(625,405,15);
circle(15,405,15);
circle(625,15,15);
FloodFill(15,15,clred);
FloodFill(15,405,clpurple);
FloodFill(625,405,cllime);
FloodFill(625,15,clblue);
end.

4.uses graphABC;
begin
setwindowsize(640,400);
setpenwidth(1);
rectangle(280,160,360,240);
circle(320,200,40);
FloodFill(285,162,cllime);
FloodFill(285,235,cllime);
FloodFill(355,235,cllime);
FloodFill(355,162,cllime);
FloodFill(320,200,clyellow);
end.

5.
uses graphABC;
begin
setwindowsize(640,400);
setpenwidth(1);
rectangle(200,200,400,400);
rectangle(220,100,250,170);
line (300,100,150,200);
lineto(450,200);
lineto(300,100);
rectangle(220,250,290,400);
rectangle(300,250,390,350);
line (300,300,390,300);
circle(550,200,40);
arc(550,210,20,535,10);
line (530,190,540,200);
line (570,190,560,200);
line (550,240,500,360);
lineto(600,360);
lineto(550,240);
line (450,280,500,300);
lineto(550,240);
lineto(620,270);
lineto(580,300);
line (530,360,530,399);
line (570,360,570,399);
FloodFill(205,205,clTeal);
FloodFill(190,190,clMaroon);
FloodFill(225,160,clBlack);
FloodFill(225,130,clBlack);
FloodFill(225,350,clMaroon);
FloodFill(310,310,clLtGray);
FloodFill(310,290,clDkGray);
FloodFill(550,260,clGreen );
FloodFill(0,0,clSkyBlue);
end.

2 votes Thanks 2

Answers & Comments

napishite pozhalujsta programmu v paskale perevod pudov v kilogrammy ochen nu

1 napisat programmu v paskale proverit yavlyayutsya li cifry vvedennogo trehzn

pomogite reshit vyvesti na pechat chisla ot 0 do n schitaya chto vse chisla na

рекомендуемые вопросы

Helpful Links

Helpful Social