Ответ:
1) Дом
uses GraphABC;
begin
setwindowsize(800,800);
SetpenWidth(6);
rectangle(100,300,600,700);
Moveto(100,300);
Lineto(350,35);
lineto(600,300);
rectangle(130,420,260,600);
rectangle(450,450,600,700);
circle(480,570,5);
line(195,420,195,600);
line(130,500,260,500);
end.
2) Звезда
uses GraphABC;
begin
Setpenwidth(5);
Setpencolor(clred);
Moveto(300,0);
lineto(150,400);
lineto(300,300);
lineto(450,400);
lineto(300,0);
line(75,150,525,150);
line(75,150,450,400);
line(525,150,150,400);
end.
<span>Телевизор был изобретён в XX веке. Изобретатель телевизора — профессор Петербургского технологического института Борис Розинг...</span>
{
Периметр треугольника вычисляется по формуле P = a + b + c
где a, b, c - длины сторон треугольника
}
Program Perimetr;
var P, a,b,c:integer;
Begin
writeln('Введите длины сторон треугольника ');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
P:= a+b+c;
writeln('Периметр треугольника = ', P);
end.
var s1,s2,c1,c2:string;
i:integer;
Begin
read(s1,c1,c2);
for i:= 1 to length(s1) do begin
s2:=s2 + s1[i];
if s1[i]=c1 then s2:=s2+c2;
end;
writeln(s2);
End.
Привет,да в таблицу можно вставлять и удалять строки и столбцы,это сделано для того что бы например ты внес(ла) в неё какую либо информацию,а потом решил,что она тебе не нужна и вместо того чтобы чтобы сидеть и долго стирать все это ты берёшь и удаляешь строку или столбец с этой информацией,или ещё другой способ ты создаёшь таблицу про моря и океаны(к примеру)и тебе надо 15 строк и 10 столбцов а изначально можно создать только 8 строк и 10 столбцов,и вот ты просто добавляешь строки со столбцами и у тебя всё получается!!!!Надеюсь я тебе хоть чуть-чуть помогла)))
