Дамп всех задач
This commit is contained in:
17
Pascal/24.10.16/Program1.pas
Normal file
17
Pascal/24.10.16/Program1.pas
Normal file
@@ -0,0 +1,17 @@
|
||||
var
|
||||
m, n, i, j: integer;
|
||||
|
||||
begin
|
||||
Read(m, n);
|
||||
for j := m to n do
|
||||
begin
|
||||
writeln();
|
||||
write(j, ':= ');
|
||||
for i := 2 to m - 1 do
|
||||
begin
|
||||
if j mod i = 0 then
|
||||
write(i, ' ');
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user