Используя оператор цикла, найти сумму целых положительных чисел, кратных 4 и меньших 100.
Заранее спасибо!
Полная версия: Работа с числами при помощи оператора While
Через оператор WHILE; Числа Фибоначчи через рекурентную формулу.
Используя оператор цикла, найти сумму целых положительных чисел, кратных 4 и меньших 100.
Заранее спасибо!
Используя оператор цикла, найти сумму целых положительных чисел, кратных 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.
Цитата
Используя оператор цикла, найти сумму целых положительных чисел, кратных 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.
Спасибо! Именно так!
Цитата
Числа Фибоначчи через рекурентную формулу
Код
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.