Вопрос: Найти сумму четных чисел натурального ряда, начиная с числа n до m
Найти сумму четных чисел натурального ряда, начиная с числа n до m(m и n вводит пользователь).
Ответ: Без циклов:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
n, m, sum: integer;
begin
sum := 0;
repeat
writeln('Введите числ с которого начинается ряд');
readln(n);
writeln('Введите число которым заканчивается ряд');
readln(m);
until n