Определить, что вычисляет программа c:=0;d:=1; while d>0 do begin if d mod 2 =0 then c:=c+d; readln(d); end; writeln(c);

Вопрос школьника по предмету Информатика

Определить, что вычисляет программа c:=0;d:=1; while d>0 do begin if d mod 2 =0 then c:=c+d; readln(d); end; writeln(c);

Ответ учителя по предмету Информатика

Программа вычисляет сумму четных чисел, введеных юзером в том случае, если введеное число больше 0.