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

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

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

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

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

  1. Боряна каза:
    11 април, понеделник в 16:42 
    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.

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