Для заданного числа n определите делится ли оно на 9, используя признак делимости - Turbo Pascal
Формулировка задачи:
1. для заданного числа n определите делится ли оно на 9, используя признак делимости.
2. провести вычисления по программе,приняв N=10,E=0.001
3. составить алгоритм,записанный в виде блог-схемы для вычисления суммы следующего ряда с точностью E
S=3x+8x^2+....n(n+2)x^n
Решение задачи: «Для заданного числа n определите делится ли оно на 9, используя признак делимости»
textual
Листинг программы
Var s,n:longint;
Begin
write('N: ');
readln(n);
n:=abs(n);
While n>0 do
Begin
s:=s + n mod 10;
n:=n div 10;
End;
writeln(s mod 9 = 0);
readln;
End.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д