Как найти все числа, на которые делится число n
Как найти все числа, на которые делится число n
Гость
Ответ(ы) на вопрос:
Гостьа) 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.
Не нашли ответ?
Похожие вопросы