pascal编程题目 计算1—50中既不能被3整除也不能被4整除的所有整数之和
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/21 18:43:56
pascal编程题目 计算1—50中既不能被3整除也不能被4整除的所有整数之和
用pascal编程序
计算1—50中既不能被3整除也不能被4整除的所有整数之和
用pascal编程序
计算1—50中既不能被3整除也不能被4整除的所有整数之和
program
calculate(input,output);
var
i:integer;
sum:integer;
begin
for i:=1 to 50 do begin
if (i mod 3 0) and (i mod 4 0) then
sum:=sum + i;
end;
writeln('The sum is:',sum);
readln;
end.
再问: 再帮帮忙好吗?你好像很厉害。 输入月份,输出该月有几天?假定2月份有28天。(用case语句写)
再答: program month(input, output); var mon:integer; day:integer; begin write('Input a month:'); readln(mon); if (mon < 1) or (mon > 12) then writeln('It is not a month!') else begin case mon of 1: day:=31; 2: day:=28; 3: day:=31; { 多的不写了,列下去就好 } end; end; writeln('The month has ', day, ' days.'); readln; end.
calculate(input,output);
var
i:integer;
sum:integer;
begin
for i:=1 to 50 do begin
if (i mod 3 0) and (i mod 4 0) then
sum:=sum + i;
end;
writeln('The sum is:',sum);
readln;
end.
再问: 再帮帮忙好吗?你好像很厉害。 输入月份,输出该月有几天?假定2月份有28天。(用case语句写)
再答: program month(input, output); var mon:integer; day:integer; begin write('Input a month:'); readln(mon); if (mon < 1) or (mon > 12) then writeln('It is not a month!') else begin case mon of 1: day:=31; 2: day:=28; 3: day:=31; { 多的不写了,列下去就好 } end; end; writeln('The month has ', day, ' days.'); readln; end.
pascal编程题目 计算1—50中既不能被3整除也不能被4整除的所有整数之和
1000中既不能被2整除也不能被3整除的整数有几个
求出【100,999】内所有既不能被5整除也不能被7整除的整数的个数
从1到100的整数中,既不能被5整除又不能被3整除的整数之和为多少?
在1到1000正整数中既不能被2整除,也不能被3整除也不能被5整除的数有几个?
求1到100之间既不能被5整除也不能被6整除的哪些整数的个数
怎样计算1-50不能被3整除,也不能被4整除的程序
1~1000这1000个数中,既不能被2整除,又不能被3整除,也不能被5整除的数有多少个
VF编程计算所有四位数中能同时被9和11整除的数之和.怎么编?
计算1—1000之间能同时被3和5整除的整数的和.pascal语言
在1到2004中,既不能被8整除,也不能被12整除的数有几个?
1-1000中,既不能被5也不能被7整除的自然数有几个?