free pascal .求196+295+394+….+691除以3、5、7、11的余数”
答案:1 悬赏:10 手机版
解决时间 2021-05-11 03:19
- 提问者网友：浩歌待明月
- 2021-05-10 02:28
free pascal .求196+295+394+….+691除以3、5、7、11的余数”
最佳答案
- 五星知识达人网友：北城痞子
- 2021-05-10 03:03
program qiuyu;
var
sum,a:integer;
begin
sum:=0;
a:=196;
while a<692 do
begin
sum:=sum+a;
a:=a+100-1;
end;
writeln(' chu yi san de yu shu shi:',sum mod 3);
writeln(' chu yi wu de yu shu shi:',sum mod 5);
writeln(' chu yi qi de yu shu shi:',sum mod 7);
writeln(' chu yi shi yi de yu shu shi:',sum mod 11);
readln;
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯