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

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

  • всички числа, кратни на X, които са по-малки от Y
  • всички степени на X, които са по-малки от Y
Публикувано в с етикети . Постоянна връзка.

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

  1. Violeta каза:
     program project1;
    var
     kratno,x,y:integer;
    begin
    WriteLn('Vavedete y');
    ReadLn(y);
    WriteLn('Vavedete x');
    ReadLn(x);
    kratno:=x ;
    while (kratno<y)do
    begin
    WriteLn(Kratno);
    kratno:=kratno+x;
    end;
    ReadLn;
    end.     

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