Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ

Var N:Integer;

begin

read(N);

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

write('YES')

else

write('=NO') ;

end.

608
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам