Въвеждане на N числа

5 Responses to Въвеждане на N числа

1. Xboxx_ каза:

   29 март, четвъртък в 14:49

    program Project1;
   Var i , suma , N , chislo: integer ;
   
   
   begin
   Write ('Vuvedete chislo:') ;
   ReadLn (N);
   For i:= 1 to N do
   Begin
     Writeln (i);
     Suma:= suma+n ;
   End;
   WriteLn ('Sumata e:' ,suma );
   ReadLn ;
   end.                       

   Влезте, за да отговорите
2. Violeta каза:

   29 март, четвъртък в 14:54

    program Project1;
    Var i ,n , suma : integer ;
   begin
   WriteLn('Vavedete   N');
   ReadLn (N);
   suma:=1 ;
   for i:=1 to n do
   Suma :=suma * i;
   WriteLn(' Proizvedenieto e ' , suma );
   ReadLn;
   end.
                   

   Влезте, за да отговорите
3. Developer каза:

   29 март, четвъртък в 14:56

   program From1ToN;
   var i,n, suma:integer;
   begin;
   suma:=0;
   WriteLn('Vuvedete stoinost na N');
   ReadLn(n);
   for i:=1 to n do
   begin
    suma:=suma+i;
   end;
   WriteLn('Sumata e:', suma);
   ReadLn
   end.
    

   Влезте, за да отговорите
4. kaloyan каза:

   29 март, четвъртък в 15:01

   Отпечатва и числата

   VAR n,i,suma,proizvedenie,suma1 : integer;
   BEGIN
     suma:=0;
     proizvedenie:=1;
   
     write('vavedete broq na chislata: '); readln(n);
   
     for i:=1 to n do begin
       write(i); if i<>n then write('+');
        suma:=suma+i;
     end;
   
       writeln('=', suma);
       writeln;
   
     for i:=1 to n do begin
       write(i); if i<>n then write('*');
        proizvedenie:=proizvedenie*i;
     end;
   
       writeln('=', proizvedenie);
   
   readln;
   END.      
   

   Влезте, за да отговорите
5. marant каза:

   03 април, вторник в 17:30

   program Project1;
   var
   e,a,b,x:integer;
   begin
   write('vavedi diapazona:');
   readln(a,b);
   
   for e:=a to b do begin
   writeln(e);
   end;
    write('vavedi kratnoto:');
   readln(x);
    for e:=a to b do  begin
   if e mod x=0 then writeln(e);
   end;
        readln;
   end.       
   

   Влезте, за да отговорите