Чему будет равен результат выполнения программы,если ввести значения для а=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Ставь лучший, если понравилось решение