Автор: Ксения 6.12.2004 0:01
Через оператор WHILE; Числа Фибоначчи через рекурентную формулу.
Используя оператор цикла, найти сумму целых положительных чисел, кратных 4 и меньших 100.
Заранее спасибо!
Автор: volvo 6.12.2004 0:28
Ксения
Цитата
Используя оператор цикла, найти сумму целых положительных чисел, кратных 4 и меньших 100.
Может быть так?
Код
var
i, s: integer;
begin
s := 0; i := 0;
while i < 100 do
begin
s := s + i;
inc(i, 4)
end;
writeln( 's = ', s )
end.
Автор: mithquessir 6.12.2004 19:54
Цитата
Числа Фибоначчи через рекурентную формулу
Код
var
a,b,c:extended;
i,n:2..88;
begin
ReadLn(n);
a := 0;
b := 1;
WriteLn(a:5:0);
WriteLn(b:5:0);
i := 3;
while i <= n do
begin
c := a + b;
WriteLn(c:5:0);
a := b;
b := c;
inc(i);
end;
end.