Дано целое число A, значение которого вводится с клавиатуры. Написать программу, которая выводит на экран
true , если A не кратно трем и оканчивается нулем
false в противном случае.
Answers & Comments
Slaanesh
Var a:integer; begin readln(a); if ((a mod 3 <>0) and (a mod 10 = 0) and (a div 10>0)) or (a=0) then writeln ('true') else writeln ('false'); end.
Answers & Comments
begin
readln(a);
if ((a mod 3 <>0) and (a mod 10 = 0) and (a div 10>0)) or (a=0) then
writeln ('true')
else writeln ('false');
end.