Работа с числами при помощи оператора 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.