作业帮 > 综合 > 作业

输入一个正整数A,如果A的各个数字之和为7的倍数则输出‘YES’,否则输出‘NO’ Turbo pascal

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/06/03 02:09:02
输入一个正整数A,如果A的各个数字之和为7的倍数则输出‘YES’,否则输出‘NO’ Turbo pascal
Turbo pascal的程序求解,如题.
var st:string;
s,i,l:longint;
begin
readln(st);
l:=length(st);
for i:=1 to l do s:=s+ord(st[i])-48;
if s mod 7=0 then writeln('YES')
else writeln('NO');
end.