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

Публикувано на 11 април, петък от Данаил

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

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

One Response to Числата от A до B

  1. Dimitrov каза:
    11 април, петък в 17:33 
    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.

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