Дана программа : program primer; uses ctr; var x:integer; begin clrsct; readln(x); if x mod 2=0 then writen ( "да") else writeln ("нет") при каком значении х будет получен ответ <<да>>
При любом х, кратном 2 программа выдаст ответ "Да"
При любом четном числе, включая 0