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

Question

Сана

29 января, 18:26

+2

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