Чему будет равен результат выполнения программы,если ввести значения для а=16 program c22; var a:integer; begin readln(a) if(a mod 2=0) then a :=a div 2; write(a); end.
Выведет значение 8............................) Он проверяет, если а делится на 2, то тогда он его делит и выводит :)
Ответ:8, если остаток от деления 16 на 2 равен 0, то присвоить значению a значение деления 16 на 2 Ставь лучший, если понравилось решение