программирование в Lazarus

[crazy gamers]

даааа!! спасибо огромное мастер программирования

[crazy gamers]

всем привет.снова вынужден к вам обратится, вы мне очень помогли в прошлый раз, но препод забраковал одну задачу((
1.,Вычислите произведение натуральных логарифмов чисел от 6 до 666, которые кратны 3 или 4''

procedure TForm1.FormActivate(Sender: TObject);
   var i: integer;
  a, b: real;
begin
a:=0;
for i:= 6 to 666 do
 if ((i mod 3)=0) or ((i mod 4) = 0) then begin
  Memo1.Lines.Add(IntToStr(i));
  if a=0 then a:= ln(i) else a:=a*ln(i);
 end;
Memo1.Lines.Add(FloatToStr(a));
end;

сказал, что она не считает произведение натуральный логарифмов всех кратных чисел, а использует только одно, help me

[Stilet]

а использует только одно

Что за бред???
А ты не спросил у него, с чего он так решил?
И кстати ты результат программы на калькуляторе пересчитывал?

[crazy gamers]

я не знаю почему он так подумал, но сказал, что это не правильно. нет не пересчитывал

[Stilet]

Ну так посчитай вручную, и сравни результат.

[Аватар]

ТС на калькуляторе 10 раз пересчитает и каждый раз будет разный результат Луше Excel напрячь для этого