输入一个正整数A,如果A的各个数字之和为7的倍数则输出‘YES’,否则输出‘NO’ Turbo pascal
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/07 19:47:18
输入一个正整数A,如果A的各个数字之和为7的倍数则输出‘YES’,否则输出‘NO’ Turbo pascal
Turbo pascal的程序求解,如题.
Turbo pascal的程序求解,如题.
![输入一个正整数A,如果A的各个数字之和为7的倍数则输出‘YES’,否则输出‘NO’ Turbo pascal](/uploads/image/z/4598993-65-3.jpg?t=%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0A%2C%E5%A6%82%E6%9E%9CA%E7%9A%84%E5%90%84%E4%B8%AA%E6%95%B0%E5%AD%97%E4%B9%8B%E5%92%8C%E4%B8%BA7%E7%9A%84%E5%80%8D%E6%95%B0%E5%88%99%E8%BE%93%E5%87%BA%E2%80%98YES%E2%80%99%2C%E5%90%A6%E5%88%99%E8%BE%93%E5%87%BA%E2%80%98NO%E2%80%99+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.
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语言的.