回 帖 发 新 帖 刷新版面

主题:pascal题目,求大侠,要用for语句

2.有一数列:第一项是0,第二项是1,第三项起是前二项的和,0,1,1,2,3,5,8,13,21,…。输出前31项的值。

3.寻找四位的平方数,例:2500=50*50。(每行打印10个)

6.蜘蛛有8条腿,蜻蜓有6条腿和2对翅,蝉有6条腿和1对翅.三种虫子共18只,共有118条腿和20对翅.问每虫子各几只?

(1) 1兔换2鸡,2兔换3鸭,5兔换7鹅.某人用20只兔换得鸡,鸭,鹅共30只.问其中鸡,鸭,鹅各几只?
(2)打印以下三角形:从键盘输入一个自然数N(1≤N≤9),根据N的值,打印输出对应的三角形,
    例如:N = 4
输出:      A 
          A B A
        A B C B A
      A B C D C B A
        A B C B A
          A B A
            A

(3)求所有满足下述条件的四位数abcd:
① 四位数是11的倍数;
②a,b,c,d互不相同;
③b+c=a;
④bc是完全平方数(如b=2,c=5,则bc为25,是完全平方数)

回复列表 (共11个回复)

11 楼

(2)
program g;
var i,j,k,l,n,m:longint;
    a:array[65..255] of string;
    s:string;
begin
{assign(input,'de.in');reset(input);}
{assign(output,'de.out');rewrite(output);}
    write('n<<<<<<<<.....255e1000');
    readln(n);
    for i:= 65 to 255 do a[i]:=chr(i);
    for i:= -n+1 to n-1 do
      begin
       for j:= 1 to abs(i) do write(' ');
       for j:= 1 to 2*(n-abs(i)-1)+1 do write(a[j+64]);
       for j:= 1 to abs(i) do write(' ');
       writeln;
      end;
{close(input);
close(output);}
end.

我来回复

您尚未登录,请登录后再回复。点此登录或注册