Кратно ли число одиннадцати, используя признак делимости на 11 - Turbo Pascal
Формулировка задачи:
Надо написать программу на паскале, с использованием функций(процедур) и массивов!
Дано натуральное число P. Проверьте, кратно ли P одиннадцати, используя признак делимости на 11 (знакопеременная сумма его цифр делится на 11).
Решение задачи: «Кратно ли число одиннадцати, используя признак делимости на 11»
textual
Листинг программы
uses crt; var p:longint; a:array[1..10] of byte; z,n,s,i:real; procedure asd(s,z,n:real; p:longint); begin while p>0 do begin n:=n+1; z:=(p mod 10); a[n]:=z; p:=p div 10; end; s:=0; for i:=1 to n do if odd(i) then s:=s+a[i] else s:=s-a[i]; end; begin writeln('Кратно ли число 11?'); write('Введите натуральное число P='); readln(p); n:=0; asd (s); if s mod 11=0 then write('Число кратно 11') else write('Число не кратно 11'); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д