С клавиатуры вводится число.Проверьте,делится ли оно на 3.Если число делится на 3,то выведите фразу "Да",в противном случае выведите "Нет".Помогите ,очень нужно.
Ответ
Автор - Nokard1221
Program deleniye; Uses crt; Var a:integer; Begin;
clrscr; write('Введите a >');
readln(a); if a mod 3=0 then
writeln('Да'); else writeln('Нет'); readln; End.