Question

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

Answer 1

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