Question

Напишите программу, вычисляющую сумму всех нечетных чисел от 1 до н, использовать цикл с постусловием

Answer 1

var
  n, i, s: integer;
 
begin
  s := 0;
  i := 0;
  read(n);
  repeat i := i + 1;
    if(i mod 2 <> 0) then s := s + i;
  until i = n;
  write(s);
end.