Вопрос Почему программа зацикливается? PascalABC.

[sania91198]

"Напишите программу, которая находит сумму четных цифр введенного числа".
Почему программа зацикливается?
Код:
var a,b,n: integer;
begin
read(b);
a:=0;
while b<>0 do
n:= b mod 10;
begin if n mod 2 = 0 then begin
b:= b div 10;
a:= a+n end
else b:= b div 10
end;

write(a) end.

 

[apallon]

while b<>0 do n:= b mod 10; Будет выполняться бесконечно, поскольку b в цикле не меняется.

 

[мрол]

Потому, что у тебя цикл: while b<>0 do n:= b mod 10; А всё остальное - уже после цикла. Ты begin не там поставил.