Форум программистов [Powered by Invision Power Board]

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

Форум программистов > Центр помощи > [Delphi] Сумма нечетных натуральных чисел

Автор: Anna2104 7.2.2015, 23:31

Вопрос из билета:"Delphi. Написать программу для вычисления суммы нечетных чисел натурального ряда в интервале от 25 до 41."

Автор: Poseidon 9.2.2015, 09:00

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i, Result: Integer;
begin
  Result := 0;

  for i := 25 to 41 do
    if i mod 2 <> 0 then
      Inc(Result, i);

  ShowMessage(IntToStr(Result));
end;