Написать программу вычисления суммы всех четных - вопрос №1241727 от angelina453 19.11.2021 03:52

Question

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

angelina453 · 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....