教我一道turbo pascal题目题目是从键盘输入一个整数X(X 不超过 10000),若X的各位数字之和为7的倍数,则打印"YES',否则中打印"NO"用turbo pascal格式回答

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/05 06:09:44

教我一道turbo pascal题目题目是从键盘输入一个整数X(X 不超过 10000),若X的各位数字之和为7的倍数,则打印"YES',否则中打印"NO"用turbo pascal格式回答
教我一道turbo pascal题目
题目是
从键盘输入一个整数X(X 不超过 10000),若X的各位数字之和为7的倍数,则打印"YES',否则中打印"NO"
用turbo pascal格式回答

教我一道turbo pascal题目题目是从键盘输入一个整数X(X 不超过 10000),若X的各位数字之和为7的倍数,则打印"YES',否则中打印"NO"用turbo pascal格式回答
Var i,sum,num,p:integer;
s:string;
Begin
Readln(s);
for i:=1 to length(s) do
begin
val(s[i],num,p);
sum:=sum+num;
end;
if sum mod 7=0 then writeln('YES') else writeln('NO');
End.

教我一道turbo pascal题目题目是从键盘输入一个整数X(X 不超过 10000),若X的各位数字之和为7的倍数,则打印YES',否则中打印NO用turbo pascal格式回答 急求TURBO PASCAL 急求关于TURBO PASCAL 一道要关于FOR的,另外两道一道是过程的,一道是函数的,题目可以自己编,但是要与化学有关的, 有没有Turbo pascal的题目急需3个,循环题目 求1道turbo pascal题目的解法用自然数300,205,167分别除以某整数A,所得的余数均相同.求出整数A以及相除的余数请用turbo pascal格式 一道poj上的题目求poj2253 的pascal程序 Turbo Pascal编程题目用Turbo Pascal一维数组（与循环）做下面的题目（要详细程序）：N只猴子围成一圈选大王.选举方式如下：1、2、3报数,数到3的猴子退出圈外.直到剩下一只猴子为止,这只猴子 Noip提高组pascal题目 做一道PASCAL题目输出2——n之间的所有素数（质数）. 一道编程题目pascal：用辗转相除法求两数的最大公约数. Turbo Pascal中的board什么意思? 给我一些pascal题目:关于深搜,广搜的越多越好 一道Free Pascal的题目求100~1000之间能被7整除的数,每行输出10个. 一道幂的运算题目谁教我一下 微积分的题目,帮我做一道题目 turbo pascal的一道题：找出100到999之间的整数中所有等于它每位数字立方和的数 帮我编一道题目（Pascal语言）小球从100米高处自由落下,着地后有弹回高度的一半再落下.求弹20次时,小球弹过了多少米 帮我算一道数学题目! 一道高数题目,我大一