Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Работа с числами при помощи оператора While

Автор: Ксения 6.12.2004 0:01

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

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

Заранее спасибо! rolleyes.gif

Автор: 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.

Автор: Guest 6.12.2004 15:34

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

Автор: 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.