Кратни и степени на X, по-малки от Y

Да се напише програма, която след въвеждане на X и Y извежда:

  1. всички числа, кратни на X, които са по-малки от Y (например всички кратни на 3, които са по-малки от 20)
  2. всички степени на X, които са по-малки от Y (например всички степени на 2, които са по-малки от 100)
Публикувано в с етикети . Постоянна връзка.

One Response to Кратни и степени на X, по-малки от Y

  1. Боряна каза:
    program Project1;
    var
      X, Y, chislo, stepen: integer;
    begin
      Write('Vavedete chislo X:');
      ReadLn(X);
      Write('Vavedete chislo Y:');
      ReadLn(Y);
      chislo:=X;
      stepen:=X;
      WriteLn('Tova sa kratnite na ', X, ', po-malki ot ', Y, ':');
      while chislo<=Y do begin
        WriteLn(chislo);
        chislo:=chislo+X;
      end;
      WriteLn('Tova sa stepenite na ', X, ', po-malki ot ', Y, ':');
      while stepen<=Y do begin
        WriteLn(stepen);
        stepen:=stepen*X;
      end;
      ReadLn;
    end. 
    

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