Question

Чему будет равен результат выполнения фрагмента программы?
a:=12
if a div 2>=6 then b:=a mod 5 else b:=a div 3 write (a-b);
1)2
2)8
3)12
4)10

Answer 1

Var a,b:integer;

begin
a:=12;
if a div 2>=6 then 
b:=a mod 5 
else b:=a div 3; 
write (a-b);
end.

Вывод 
10
===========================