Написать программу вычисления суммы всех четных - вопрос №12420611 от nadia182 21.08.2022 07:12

Question

Информатика: Написать программу вычисления суммы всех четных чисел в диапазоне от 1 до n (используя repeat)

nadia182 · Answer

program repeater;var n,s,i:Integer; begin n := 10; s := 0; i := 0; repeat    s := s + i;    i := i + 2; until i n; writeln(s); end....