Помогите,пожалуйста,даю 50 баллов! Задача Pascal. Ввести число с клавиатуры,если это...

Question

Помогите,пожалуйста,даю 50 баллов! Задача Pascal. Ввести число с клавиатуры,если это число кратно 8 и кратно 10,то вывести в ответ Yes, иначе No

Answer 1

Ответ:

Var N:Integer;

begin

read(N);

if (N mod 8 = 0) and (N mod 10 = 0) then

write('YES')

else

write('=NO') ;

end.