Работа с числами при помощи оператора While Опции

[Ксения]

Через оператор WHILE; Числа Фибоначчи через рекурентную формулу.

Используя оператор цикла, найти сумму целых положительных чисел, кратных 4 и меньших 100.

Заранее спасибо!

[volvo]

Ксения

Используя оператор цикла, найти сумму целых положительных чисел, кратных 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.

[Guest]

Спасибо! Именно так!

[mithquessir]

Числа Фибоначчи через рекурентную формулу

Код

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.

Сообщение отредактировано: mithquessir - 6.12.2004 19:55