Числата от A до B

Да се напише програма, която позволява да се въведат две числа A и B и после отпечатва:

  1. всички числа от A до B
  2. сумата на тези числа
  3. числата от A до B, които са кратни на X
Публикувано в 10а, 10б с етикети . Постоянна връзка.

5 Responses to Числата от A до B

  1. Евгения Георгиева каза:

    program project1;
    Var
    i,A,B, suma, x:integer;
    begin
    Write ( ‘Vavedete chislo za A’);
    ReadLn (A);
    WriteLn ( ‘Vavedete chislo za B’);
    ReadLn (B);
    WriteLn ( ‘Vavedete chislo za X’);
    ReadLn (X);
    for i:= A to B do WriteLn (i);
    suma:=0 ;
    for i:=A to B do
    suma:=suma + i;
    WriteLn (suma);
    for i:=A to B do
    if i mod x = 0 then WriteLn (i);
    ReadLn;
    end.

  2. Simona Dimitrowa каза:
    program Project1;
    
    var
    i,a ,b, suma, x:integer;
    begin
    Write ( 'Vavedete chislo za a: ');
    ReadLn (a);
    WriteLn ( 'Vavedete chislo za b: ');
    ReadLn (b);
    WriteLn ( 'Vavedete chislo za x: ');
    ReadLn (x);
    for i:= a to b do WriteLn (i);
    suma:=0 ;
    for i:=a to b do
    suma:=suma + i;
    WriteLn (suma);
    for i:=a to b do
    if i mod x = 0 then WriteLn (i);
    ReadLn;
    end.    

    +Никол

  3. krisi3005 каза:
    program Project1;
    var
      i,A,B,suma,x:integer ;
    begin
    Write('Vavedete chislo za  A : ');
    ReadLn (A);
    Write('Vavevedete chislo za  B :') ;
    ReadLn(B) ;
    Write('Vavadete chislo za : x ') ;
    ReadLn (x);
    Write('Izvejdane na vsichki chisla : ') ;
    for i:= A to B do
      WriteLn (i);
    suma:=0 ;
     Write('Izvejdane na vsichki sumi : ') ;
    for i:= A to B  do
      suma:=suma+i ;
    Write(suma);
     Write('Izvejdane na vsichki kratni :') ;
    for i:=A to B do
      if i mod x = 0 then WriteLn (i);
    ReadLn;
    end.   
    

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