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

Question

Вераша

29 марта, 17:44

+1

Ответы (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.