Найти сумму целых положительных нечетных чисел, меньших 200

Задание:

Найти сумму целых положительных нечетных чисел, меньших 200

Решение:

uses crt; var s,i: integer; begin s: =0; for i: =1 to 199 do if (i mod 2<>0) then s: =s+i; writeln (s); end.

Знаете другой ответ?

Отправить свой ответ