Задание:
Найдите сумму натуральных нечетных чисел не превышающих n! Сделать циклм while
Решение:
var i,n,sum: integer; Begin read (n); i: =1; sum: =0; while i <= n do begin sum: =sum+i; i: =i+2; end; write (sum); end.
Знаете другой ответ?
Найдите сумму натуральных нечетных чисел не превышающих n! Сделать циклм while
var i,n,sum: integer; Begin read (n); i: =1; sum: =0; while i <= n do begin sum: =sum+i; i: =i+2; end; write (sum); end.
Знаете другой ответ?