Найдите сумму натуральных нечетных чисел не превышающих n!Сделать циклм while
Найдите сумму натуральных нечетных чисел не превышающих 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.
Не нашли ответ?
Похожие вопросы