Question

С клавиатуры вводится число.Проверьте,делится ли оно на 3.Если число делится на 3,то выведите фразу "Да",в противном случае выведите "Нет".Помогите ,очень нужно.

Answer 1

Program deleniye;
Uses crt;
Var a:integer;
Begin;
clrscr;
write('Введите a >');
readln(a);
if a mod 3=0 then writeln('Да');
else writeln('Нет');
readln;
End.