1) Банковский вклад размером в 100000 рублей через 3 года должен возрасти
до 190000 руб. Под какой процент необходимо вложить данные средства, если
начисления процентов производятся ежемесячно и дополнительных платежей или
изъятий не производится?
2) Кредит, подлежащий возврату в размере 1200000 руб. через 10 лет, был взят
под 15% годовых. Руководствуясь тем, что начисления процентов производятся
ежемесячно, определить сумму кредита.

Var
  m,n,p:real;
  k:integer;
begin
  Write('Введите через пробел начало и конец интервала: ');
  Read(m,n);
  p:=1;
  k:=Trunc(m);
  if (k mod 2)=0 then Inc(k); { Первое нечетное }
  n:=Int(n); { целочисленный конец интервала }
  while k<=n do
  begin p:=p*k; k:=k+2 end;
  Writeln('Произведение нечетных на интервале: ',p)
end.
 
Тестовое решение:
Введите через пробел начало и конец интервала: -3.8 8.2
Произведение нечетных на интервале: 315

var
  m,n,i,j:integer;
  p:real;
begin
  Write('Введите через пробел целочисленные границы интервала: ');
  Read(m,n);
  for i:=m to n do
  begin
    p:=1;
    if i=0 then Writeln('2^0=1')
    else
      if i<0 then
      begin for j:=-1 downto i do p:=p/2; Writeln('2^(',i,')=',p) end
      else
      begin for j:=1 to i do p:=p*2; Writeln('2^',i,'=',p) end
  end
end.

Тестовое решение:
Введите через пробел целочисленные границы интервала: -5 10
2^(-5)=0.03125
2^(-4)=0.0625
2^(-3)=0.125
2^(-2)=0.25
2^(-1)=0.5
2^0=1
2^1=2
2^2=4
2^3=8
2^4=16
2^5=32
2^6=64
2^7=128
2^8=256
2^9=512
2^10=1024

Вот программа : program xxx; 
<p>program xxx;</p><p>&nbsp;&nbsp; var i, k, d, e, s : integer;</p><p>begin</p><p>&nbsp; k:=0;</p><p>&nbsp;for i:= 10 to 99 do</p><p>&nbsp;&nbsp; begin</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d:= i div 10;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; e:= i mod 10;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; s:=d + e;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if i mod s = 0 then k:=k+1</p><p>&nbsp;&nbsp; end;</p><p>&nbsp;&nbsp; write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p>&nbsp;&nbsp; readln</p><p>end.</p>