R(0) = 0
R(1) = 0
R(2) = 1
R(3) = R(2) + R(0) + R(2) = 1 + 0 + 1 = 2
R(4) = R(3) + R(1) = 2 + 0 = 2
R(5) = R(4) + R(2) + R(3) = 2 + 1 + 2 = 5
R(6) = R(5) + R(3) = 5 + 2 = 7
R(7) = R(6) + R(4) + R(4) = 7 + 2 + 2 = 11
R(8) = R(7) + R(5) = 11 + 5 = 16
R(9) = R(8) + R(6) + R(5) = 16 + 7 + 5 = 28
<span>R(10) = R(9) + R(7) = 28 + 11 = 39</span>
1.
Program num1;
Uses crt;
Var
a :array [1..100] of integer;
i,k,n, s : integer;
Begin
clrscr;
s:=0;
write('K=');readln(k);
write('N=');readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if (a[i] MOD k)=0 then s:=s+a[i];
writeln('S=',s);
End.
2.
Program num2;
Uses crt;
Var
a :array [1..100] of real;
i,n,j : integer;
x : array [1..100] of real;
Begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
readln(a[i]);
j:=1;
for i:=1 to n do
if a[i]=0 then
begin
x[j]:=i;
j:=j+1
end;
for i:=1 to j-1 do
write(x[i],' ');
End.
3.
Program num3;
Uses crt;
VAr
a :array [1..100] of real;
i,n : integer;
Begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
if a[i]<>0 then
if a[i]>0 then
begin
writeln('Положительное встречается раньше');
break
end else
begin
writeln('Отрицательное встречается раньше');
break
end;
end;
End.
4.
Program num4;
Uses crt;
Var
a : array [1..100] of real;
i, n, j :integer;
Begin
clrscr;
write('n=');readln(n);
a[n+1]:=a[n]+1;
for i:=1 to n do
readln(a[i]);
j:=0;
i:=1;
while i<n do
begin
if a[i]<a[i+1] then
begin
j:=j+1;
i:=i+1
end
else
begin
writeln('Последовательность невозрастающая');
break
end;
end;
if i=n then writeln('Последовательность возрастающая');
End.
Пусть даны сторона ромба a и радиус вписанной окружности r. Тогда площадь ромба равна 2ar.
Необходимо получить значения a, r; вычислить значение площади и вывести его. Блок-схема приведена во вложении.