проверить программу и изменить так, чтобы находила сумму четных чисел. С repeat u until

[Полина19]

В классе дали программу и сказали дома проверить:

const a=0;
var b, S: integer;
begin
S:=0;
Repeat
writeln ('Введите число');
readln (b);
S:=S+b
Until b=0;
writeln ('S:=', S);
end.

Зачем в константе а? И вообще сомневаюсь, что она правильно работает. И сказали также изменить эту прогрмамму так, чтобы находила сумму четных чисел. С repeat u until. Пожалуйста, помогите!

[Hollander]

Константа а вообще не используется.
Программа просто выводит сумму введенных чисел, пока не будет введен 0 (ноль).

[Полина19]

Можно считать, что половина задания выполнена) хоть что-то...спасибо)

[Niro]

изменить эту прогрмамму так, чтобы находила сумму четных чисел

если введенное число деленное на два дает в остатке ноль - оно четное, и его можно брать в сумму

целочисленное деление в паскале - это оператор "mod", например
4 mod 2 = 0 (остаток = 0 значит 4 - четное)
5 mod 2 = 1 (остаток = 1 значит 5 - нечетное)

осилите?

[apromix]

В паскале ведь есть функция odd() для проверки четности.