Răspuns:
program conditii;
var n:integer;
begin
Write('numar intreg, n='); Read(n);
Writeln('a) este divizibil cu 3: ', n mod 3=0);
Writeln('b) este divizibil cu 2 sau cu 3: ', (n mod 2=0)or(n mod 3=0));
Writeln('c) este divizibil cu 3 sau cu 4: ', (n mod 3=0)or(n mod 4=0));
Writeln('d) nu este divizibil nici cu 3 si nici cu 4: ', not ((n mod 3=0)or(n mod 4=0)));
end.
Explicație:
