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

Question

Математика

Петюня

26 января, 04:18

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

+5

Ответы (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.