Помогите решить задачки циклом Repeat, Решение задач. Опции

[Гость_Андрей]

1. Произведение N первых нечётных чисел равно p. Cколько сомножителей взято?
2. Определить 40-е число Фибоначчи.
Поиск первого числа Фибоначчи, большего m(m+1);
Вычисление суммы всех чисел Фибоначчи, которые не превослодять 1000.

[Altair]

если модернизировать,то будет считать все что нужно

А именно вот так:

Код

uses wincrt;
var f0,f1,fn:longint;
   n,i:word;
begin
n:=40;
f0:=0; f1:=1;
for i:=3 to n do
begin
fn:=f0+f1;
f0:=f1; f1:=fn;
end;
write (fn:10);
end.

Код для BWP или TPW, для запуска в BP или TP, замените Wincrt на crt ...

[Юляшка]

Ну да. я это и имела в виду! :no: