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

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

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

Един коментар по Числата от A до B

  1. Dimitrov каза:
    program Project1;
    
    var
      A, B, i, suma: integer;
    
    
    begin
      WriteLn('vuvedi chisloto A: ');
      ReadLn(A);
      WriteLn('vuvedi chisloto B: ');
      ReadLn(B);
      suma:= 0;
      if (A<B) then
      for i:= A to B do begin
        Write(i,',');
        suma:= suma + i;
      end
      else for i:= A downto B do begin
      Write(i,',');
         suma:= suma + i;
      end;
      WriteLn;
       WriteLn('sumata na chgislata e: ', suma);
      ReadLn;
    end.                                

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