Які властивості має компонент shape

має властивість Shape, що визначає її форму. Ця властивість може набувати різних значень: stRectangle — прямокутник, stCircle — коло, stSquare — квадрат, stDiamond — ромб, stTriangle — трикутник, за замовчуванням значення цієї властивості визначає квадрат з контуром чорного кольору товщиною 1 піксель і суцільною заливкою білого кольору.

Объяснение:

Var a,b,c,d,x,y,z,y1,z1,y2,z2,nod:integer;
begin
writeln('1-я дробь (числитель и знаменатель):');
readln(a,b);
writeln('2-я дробь (числитель и знаменатель):');
readln(c,d);
y1:=a*d+c*b; y2:=y1;
z1:=b*d; z2:=z1;
while (y2>0)and(z2>0) do
 if y2>z2 then y2:=y2 mod z2 else z2:=z2 mod y2;
nod:=y2+z2;
y1:=y1 div nod; 
z:=z1 div nod;
x:=y1 div z;
y:=y1 mod z;
if x>0 then writeln(x,' ',y,'/',z) else writeln(y,'/',z);
end.

Пример:
1-я дробь (числитель и знаменатель):
1 10
2-я дробь (числитель и знаменатель):
2 5
1/2

название книги                                 автор                                      жанр

Дюймовочка                                       Андерсен Х.К.                       сказки

Серебрянное копытце                   Бажов П.П.                           сказки

Мишкина каша                                  Носов Н.                               рассказы

Сказка о потеренном времени   Шварц Е.                              сказка

Ну, погоди                                          Камов Ф. Курляндский А.

 

                                                              Хайт А.                                   сказка по мультфильму