Question

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

Answer 1

Выведет значение 8............................)
Он проверяет, если а делится на 2, то тогда он его делит и выводит :)

Answer 2

Ответ:8, 
если остаток от деления 16 на 2 равен 0, то присвоить значению a значение деления 16 на 2
Ставь лучший, если понравилось решение