Числата от 1 до N

5 Responses to Числата от 1 до N

1. Violeta каза:

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

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

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

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

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

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

   29 март, четвъртък в 16:07

   Отпечатва и числата с операциите

   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.
   

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

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

   File: project1-1.pas

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

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

   program Cikul;
    var a,b,i,x,suma:integer;
   begin
   suma:=0;
   write('wawedete stoinosti za a i b (otdeleni s interwal): ');
   readln(a,b);
   for i:= a to b do
   write(i,' ');
   i:=0;
   writeln;
   write('wawedete chislo X, na koeto da sa kratni chislata: ');
   readln(x);
   writeln;
   write('chisla kratni na x sa: ');
   for i:= a to b do
   if i mod x=0 then write(i, ' ');
   i:=0;
   writeln;
   write('sbora chislata ot 1 do ',b,' e: ');
   for i:= 1 to b do begin
   suma:=suma + i;
   end;
   write(suma);
   readln();
   end.
   
   

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