|
|
|
|
|
|
|
Вернуться
| 1 Беляев Сергей Николаевич, 24 января 2011 г. 4:38:56 | |
|
Ее надо оптимизировать не по памяти, а по времени :) По крайней мере точно надо заменить M:=M-N на M:=M mod N и N:=N-M на N:=N mod M. Скажу так же, что слово program начиная аж с 4й версии турбо паскаля уже не модно писать и не обязательно использовать файловые переменные, посмотрите как без них в разделе Новичкам это возможно делать.
|
|
|
| 2 Калиниченко Максим Дмитриевич, 23 января 2011 г. 21:35:02 | |
|
Это программа на нахождение НОК
|
|
|
| 3 Калиниченко Максим Дмитриевич, 23 января 2011 г. 21:34:31 | |
program prim3;
var M, N, C, D: integer;
a, b: integer;
fi,fo: text;
begin
assign(fi, 'input.txt'); reset(fi);
assign(fo, 'output.txt'); rewrite(fo);
read(fi, M, N);
C:=M;
D:=N;
while M<>N do
begin
if M>N
then M:=M-N
else N:=N-M
end;
if m=n then a:=n;
b:=(C*D) div a;
writeln (fo, b);
close(fi);
close(fo);
end.
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| | | |
