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

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/11/05 18:47:18

输入一个正整数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.

输入一个正整数A,如果A的各个数字之和为7的倍数则输出‘YES’,否则输出‘NO’ Turbo pascal pascal输入一个整数,如果它是7的倍数,则输出‘yes’,否则输出‘no’. 输入一个正整数,编程判断其是否既是5又是7的倍数.若是,则输出“yes”;否则输出“no”. C语言,从键盘输入一个三位正整数,如果各位数字之和等于10,则输出yes,否则输出no. 用C语言：输入一个正整数,判断其是否既是5的倍数又是7的倍数,如是,输出yes,否则,输出no. 1:输入一个整数A,判断是否为偶数.（是输出“YES”否则输出“NO”）. 输入一个正整数n(1≤n≤6)和n 阶矩阵a 中的元素,如果a 是上三角矩阵,输出“YES”；否则,输出“NO” 输入一个正整数,判断每个数从高位到低位各位数字是否按值从小到大排列,如果是则输出“yes”,否则输出“no”.其中inp 试编程判断输入的正整数是否既是3又是5的整倍数.若是,则输出yes,否则输出no.. pascal 输入一个整数n,请你判断n是否是质数.输入一个数n,如果是质数则输出yes 否则输出no 用break语句输入一个正整数,输出该数的各个数字之和.要求编写函数,计算整数的各个数字之和编程判断输入的正整数是否既是3又是8的整倍数.若是,输出yes,否则输出no.c语言的.