Дано целое число A, значение которого вводится с клавиатуры. Написать программу, которая выводит на экран

true, если A не кратно трем и оканчивается нулем

false в противном случае.

Question

Информатика

Татуля

8 июня, 03:47

Дано целое число A, значение которого вводится с клавиатуры. Написать программу, которая выводит на экран

true, если A не кратно трем и оканчивается нулем

false в противном случае.

+2

Ответы (1)

Знаете ответ на вопрос?

Эмуня · Answer 1

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.