pascal输入一个整数，如果它是7的倍数，则输出‘yes’，否则输出‘no’。

显示全部楼层 · 2010-12-12 20:21:56

var n:longint;beginreadln(n);if n mod 7 =0 then writeln('yes'){除以7取余，是否等于0，等于则输出yes，否则输出no }
else writeln('no');end.

千问 · 2010-12-12 20:21:56

varn:longint;function mod7(x:longint):boolean;beginif x mod 7=0 then mod7:=trueelse mod7:=false;end;beginreadln(n);if mod7(n) then writeln('yes') else writeln('

千问 · 2010-12-12 20:21:56

取余是否等于0等于则为yes否则为no

千问 · 2010-12-12 20:21:56

var a:longint;beginread(a);if a mod 7=0 then writeln('yes') else writeln('no');end.