Найдите сумму натуральных нечетных чисел не превышающих n! сделать циклм while

mayerok mayerok    3   19.05.2019 01:40    0

Ответы
Приветикэтоя Приветикэтоя  12.06.2020 06:54

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика