Как найти все числа, на которые делится число n

Question

Математика

Абрам

16 ноября, 18:13

Как найти все числа, на которые делится число n

+4

Ответы (1)

Знаете ответ?

Юрия · Answer 1

А) Program a;

uses crt;

var

i, n:integer;

begin

Writeln ('Введите n') ;

Read (n) ;

For i:=10 to 99 do

begin

if i mod n=0 then

Write (i,' ') ;

end;

end.

б) Program b;

uses crt;

var

i, n:integer;

begin

Writeln ('Введите n') ;

Read (n) ;

For i:=100 to 999 do

begin

if i mod n=0 then

Write (i,' ') ;

end;

end.