Помогите Срочно!!! Чему будет равен результат выполнения программы, если ввести значения для 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 =...
Помогите Срочно!!!
Чему будет равен результат выполнения программы, если ввести значения для 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
Гость
Ответ(ы) на вопрос:
ГостьЕсли запустить эту программу в Паскале, то он выдает ответ : 0
Правильный ответ: В) 0
Не нашли ответ?
Похожие вопросы