Связь с администрацией сайта:       

demo

Среди толпы я одинок

Pascal Поиск натуральных чисел, не превосходящих заданного числа n

Найти все натуральные числа, не превосходящие заданного числа n, которые делятся на каждую из своих цифр на языке Паскаль.
 
 
var N,i,x:integer;
v:boolean;
c:byte;
begin
  Write('N=');
   readln(N);
    for i:=1 to N do
     begin
      v:=true;
      x:=i;
        while x>0 do
         begin
           c:=x mod 10;
           if (c=0) or (i mod c<>0) then begin v:=false; break end;
           x:=x div 10;
         end;
       if v then write(i,' ')
     end;
end.
 
Голосуй
(4 Голоса)
Оставьте комментарий

Поля, отмеченные звездочкой(*) обязательны для заполнения. HTML теги не приветствуются.

Вход на сайт