pascal 输入n,输出1到n之间既可以被5除尽,又能被7除尽的数

显示全部楼层 · 2013-5-11 19:14:45

我的百度网盘推广链接，请支持下http://yun.baidu.com/disk/beinvited?uk=4195699187有了更大的空间，便能存更多的代码，服务更多的人，谢谢。 delphi的控制台代码，和pascal差不多吧 program Project1;{$APPTYPE CONSOLE}usesSysUtils;varn,i:Integer;begin{ TODO -oUser -cConsole Main : Insert code here }Write('输入n:');Readln(n);Write('输出:');if n>1 thenbeginfor i:=1 to n dobeginif (i mod 5=0) and...

千问 · 2013-5-11 19:14:45

你是要代码还是？= =代码见下。program test;var n,i:longint;beginreadln(n);for i:=1 to n do begin
if (i mod 7=0) and (i mod 5=0)then
writeln(i);end;en...

千问 · 2013-5-11 19:14:45

var n,i:longint;begin read(n); for i:=1 to n do
if n mod 5=0 then if n mod 7=0 then write(i,' ');
{这部也可以写成if n mod 35=0 then write(i,' ');
因为5和7的...