Составьте программу вычисления периметр прямоугольника со сторонами а и в..

program zadacha;

var a,b,p: real;

begin

readln(a,b);

p: =(a+b)*2;

writeln('perimetr=',p,);

end.

 

 

 

 

 

 

 

 

 

 

 

 

var a,b: real;

begin

readln(a,b);

writeln('perimetr - ',2*(a+b));

end.

Const     n = 3;     m = 4; var     a: array[0..n-1,0..m-1] of integer;     i,j,k: integer; begin for i: = 0 to n-1 do       for j: = 0 to m-1 do               if i*j = 0 then a[i,j]: =1; if m> n then k: =m else k: =n; for k: = 1 to k-1 do       for i: = 1 to n-1 do               for j: = 1 to m-1 do                       if (i = k)or(j = k) then                             a[i,j]: =a[i-1,j]+a[i,j-1]; for i: = 0 to n-1 do       for j: = 0 to m-1 do               write(a[i,j],' '); end.

Пусть *(n) - число звёздочек, которое выведет процедура f(n). так как f(n) всегда выводит 1 звёздочку, а если если n > 2 - то вызывает f(n - 1) и f(n - 2), то *(n) = 1 при n < = 2 *(n) = 1 + *(n - 1) + *(n - 2) при n > 2. *(1) = *(2) = 1 *(3) = 1 + *(2) + *(1) = 1 + 1 + 1 = 3 *(4) = 1 + *(3) + *(2) = 1 + 3 + 1 = 5 *(5) = 1 + 5 + 3 = 9 *(6) = 1 + 9 + 5 = 15 *(7) = 1 + 15 + 9 = 25 *(8) = 1 + 25 + 15 = 41 *(9) = 1 + 41 + 25 = 67 *(10) = 1 + 67 + 41 = 109 *(11) = 1 + 109 + 67 = 177 *(12) = 1 + 177 + 109 = 287 *(13) = 1 + 287 + 177 = 465 *(14) = 1 + 465 + 287 = 753 *(15) = 1 + 753 + 465 = 1219 *(16) = 1 + 1219 + 753 = 1973 > = 1500ответ: 16. можно было заметить, что *(n) = 2f(n) - 1, где f(n) - число фибоначчи, или просто выполнять программу для разных n.