Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 12
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 25
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 25
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 26
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 26
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 27
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 27
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 28
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 28
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 29
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 25
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 25
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 26
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 26
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 27
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 27
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 28
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 28
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 29
нужна помощь по Delphi .:: CodingRUS ::. программирование по-русски на Delphi, C++, PHP, Prolog, GPSS
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/side_left.php on line 41
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/side_left.php on line 41
=
function IsSimpleByte(n: integer): boolean;
var i: integer;
begin
if not n in [1..255] then begin
result:=false; =
exit; =
end;
for i := n-1 downto 2 do
if n mod i = 0 then begin
result:=false;
exit;
end;
result:=true;
end;
var i, m, n, k: integer;
diapazon, diapazon_k, diapazon_m, diapazon_km: set of byte;
begin
m:=4;
while not IsSimpleByte(m) do begin
write('Input SIMPLE BYTE m: ');
readln(m);
end;
n:=0;
while not ((n in [1..255]) and (n>m)) do begin
write('Input n: ');
readln(n);
end;
k:=4;
while not IsSimpleByte(k) do begin
write('Input SIMPLE BYTE k: ');
readln(k);
end;
diapazon:=[m..n];
writeln('Full diapazone:');
for i:=m to n do begin
write(i,', ');
if i mod k = 0 then
diapazon_k:=diapazon_k+[i];
if i mod m = 0 then
diapazon_m:=diapazon_m+[i];
if ((i mod m = 0)and(i mod k = 0)) then
diapazon_km:=diapazon_km+[i];
end;
writeln;
writeln('Delitsa bez ostatka na k:');
for i:=m to n do
if i in diapazon_k then
write(i,', ');
writeln;
writeln('Delitsa bez ostatka na m:');
for i:=m to n do
if i in diapazon_m then
write(i,', ');
writeln;
writeln('Delitsa bez ostatka na k & m:');
for i:=m to n do
if i in diapazon_km then
write(i,', ');
writeln(#13#10,'done! press any key.');
readln;
end.
Обьясни што обозночает m
и вот эту строчку while not IsSimpleByte(m) do begin
Изменил(а) Kest, 06-04-2011 20:04