教我一道turbo pascal题目

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/14 06:00:37

教我一道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题目 Turbo Pascal编程题目 turbo pascal 题目 Turbo Pascal题目~ 有没有Turbo pascal的题目 Turbo Pascal编程问题 Turbo Pascal习题：急求TURBO PASCAL 做一道PASCAL题目一道Free Pascal题目一道pascal的题目关于一道pascal题目