Квадрати от числа

Да се въведе число N и да се отпечатат на екрана квадрати от числа. Например при въвеждане на N=4 да се отпечата следното:

Първи вариант:
4 4 4 4
4 4 4 4
4 4 4 4
4 4 4 4

Втори вариант:
1 2 3 4
1 2 3 4
1 2 3 4
1 2 3 4

Трети вариант:
1 2 3 4
2 3 4 5
3 4 5 6
4 5 6 7

Публикувано в с етикети . Постоянна връзка.

7 Responses to Квадрати от числа

  1. kaloyan каза:
    VAR i,i1,n,chislo : integer;
    BEGIN
    write('vavedi chislo: '); readln(n);
    //parvi variant
    writeln('PARVI VARIANT');
    for i:=1 to n do begin
      for i1:=1 to n do
        write(n,' ');
        writeln;
    end;
    writeln;
    //vtori variant
    writeln('VTORI VARIANT');
    for i:=1 to n do begin
      for i1:=1 to n do
          write(i1,' ');
          writeln;
    end;
    writeln;
    //treti variant
    writeln('TRETI VARIANT');
    for i:=1 to n do begin
      for i1:=i to 2*i-1 do
        write(i1,' ');
        writeln;
    end;
    readln;
    END.  
    
  2. Xboxx_ каза:
    program Project1;
    
    var i,j, n: integer;
    
    begin
    Write ('Vuvedete chislo') ;
    Readln (n);
    for i:=1 to n do
    begin
    for j:=1 to i do
    Write (j, '');
    Writeln ;
     end;
     readln ;
    end.
                           
  3. Xboxx_ каза:
     program Project1;
    
    var i,j, n: integer;
    
    begin
    Write ('Vuvedete chislo:') ;
    Readln (n);
    for i:=(1) to n do
    begin
    for j:=(1) to n do
    Write (n, '');
    Writeln ;
     end;
     readln ;
    end.                  

Вашият коментар