паскаль: условия, типы

@ktotaika · Регистрация: 04.11.2012

Author24 — интернет-сервис помощи студентам

Всем привет!

Pascal

procedure alg (fib, i, n:integer; k:word);
begin
     repeat
           writeln('vvedite znachnost: ');
           readln(n);
     until n in [1..4];
     k:=0;
     for i:=exp((n-1)*ln(10)) to exp(n*ln(10))-1 do
         begin
              if (fib div exp(n*ln(10)) mod 2 <> 0) then
                 begin
                      write(fib:7);
                      k:=k+1;
                 end;
         end;
         writeln('vsego chisel ',k, 'shtuk');
end;

Столкнулась с такой проблемой, что в строке if (fib div exp(n*ln(10)) mod 2 <> 0) при компиляции выдается ошибка "операция неприменима к операндам этого типа". Помогите, пожалуйста, может я чего-то просто недоглядела...
Заранее спасибо!

@CodeR · 06.11.2012, 12:13

ktotaika, потому что результат вычисления exp(n*ln(10)) вещественный можно сделать вот так round(exp(n*ln(10))) - round округляет число до ближайшего целого...

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,587 Записей в блоге: 1
	06.11.2012, 12:13	2
	ktotaika, потому что результат вычисления *exp(nln(10))** вещественный можно сделать вот так round(exp(n*ln(10))) - round округляет число до ближайшего целого... 0