Question

Составить программу, печатающую значение true, если указанное высказывание является истин-ным, и false в противном случае, когда целое a не кратно трем и оканчивается нулем.

Answer 1

program exs;
var a: integer;
b : boolean;
begin

read(a);
b:=(a mod 3 <> 0) and (a mod 10 = 0);
writeln(b);

end.