Написать программу вычисления суммы всех четных - вопрос №11241384 от Akbota0504 21.10.2020 02:44

Question

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

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