作业帮 > 综合 > 作业

Pascal语言编程问题,找出第k个被3,5,7除的时候,余数为2,3,2的数

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/12 19:47:57
Pascal语言编程问题,找出第k个被3,5,7除的时候,余数为2,3,2的数
输入格式
一个数k
输出格式
求出第k个符合条件的数
Pascal语言编程问题,找出第k个被3,5,7除的时候,余数为2,3,2的数
var
i,w,k:longint;
begin
readln(k);
for i:=23 to 1000000 do
if (i mod 3=2) and (i mod 5=3) and (i mod 7=2) then
begin
w:=w+1;
if w=k then begin writeln(i); exit; end
end;
end.
由于没有测试数据,也就只有先拿出来了.