Задача на треугольники:

Оговариваю переменные - d,e,f

Program Triangle;

Var d,e,f: integer;

Begin

Writeln('Vvedite 3 chisla');

Readln(d,e,f);

If (d<e+f) and (e<d+f) and (f<d+e) then Writeln('F=1')

Else Writeln('F=0');

Readln;

End.

Задача на нахождение степени числа Х (произвольного):

Program Unknown;

Var x,y,l,m: integer;

Begin

Writeln('Vvedite x,y');

Readln(x,y);

m:=x;

for l:=2 to y do

x:=x*m;

Writeln('x^',y,'=',x);

Readln;

End.

Ответы на вопросы:

1) Возможно программирование полного и неполного ветвления: в первом случае с помощью "if...then" (если... то) и "else" (иначе), во втором без "else".

2) Составным оператором называется последовательность операторов, которая заключена между "Begin" и "End"- служебными словами. Составной оператор используется при нескольких последовательных операторах на одной из ветвей оператора.

№ 6 (Работа с дробями):

Program Fraction;

Var a,b,c,d,e,f:integer;

Begin

Writeln('Vvedite znachenya chislitelya i znamenatelya pervoy drobi');

Readln(a);

Readln(b);

Writeln('Vvedite znachenya chislitelya i znamenatelya vtoroy drobi');

Readln(c);

Readln(d);

e:=a*b+c*d;

f:=b*d;

Writeln(' itogovaya summa');

Writeln(e,'/',f);

Readln;

End.

№ 7 (Поиск значения Y):

Program Search;

Var x,y:integer;

Begin

Writeln('Vvedite znachenye x');

Readln(x);

y:=(1-x*x+5*x*x*x*x)*(1-x*x+5*x*x*x*x);

Writeln('y=',y);

Readln;

End.

Прошу прощение за задержку выполнения домашнего задания!