З'ясувати чи число А кратне 5. Відповідь вивести у вигляді Yes/No
З'ясувати чи число А кратне 5. Відповідь вивести у вигляді Yes/No
Гость
Ответ(ы) на вопрос:
Гость Var a:integer;
begin
write('a='); readln(a);
if a mod 5 = 0 then writeln('Yes') else writeln('No');
end.
Пример:
a=15
Yes
Не нашли ответ?
Похожие вопросы