Question

Помогите Срочно!!!
Чему будет равен результат выполнения программы, если ввести значения для a=2468?
program c22;
var a,b:integer;
k:integer;
begin
K:=0;
readln(a);
while (a<>0) do
begin
b:=a mod 10;
if b mod 2 =0 then
inc(k);
a:=a div 10;
end;
writeln(k);
end.

A) 9 Б)3 В)0 Г)4

Answer 1

Если запустить эту программу в Паскале, то он выдает ответ  :    0

Правильный ответ:     В) 0

Answer 2

я запустил ее в паскале то мне выдает ответ 4 нажимаю проверить там внизу ввод данных я ввожу 2468 ответ выходит 4

Answer 3

у меня тоже 4 выходит, откуда вы ноль взяли только :)

Answer 4

Чичас перезапущу... Хотя и решать не надо: программа спрашивает, сколько четных цифр в числе ? Отвечаем: 4 ! Ответ 4 (Наверное, неправильно скопировал Паскалевскую программу!!!

Answer 5

Блин! Ответ , конечно равен 4. (и не надо было мне запускать программу....)