Программа для нахождения НОК в Паскале. Объясните, пожалуйста строчки, помечанные цифрами. Заранее спасибо. var n,m:integer;
i,k:integer;
delitsya:boolean; 1.
begin
write('Vvedite N: ');
readln(n);
write('Vvedite M: ');
readln(m);
if (m<>0) and (n<>0) then
begin
k:=n*m; 2
i:=k; 3
while i>0 do 4
begin
if (i mod n=0) and (i mod m=0) then 5
k:=i; 6
i:=i-1; 7
end;
writeln('NOK ',m,' i ',n,' raven ',k)
end
else writeln('Na nol delit nelzya');

readln;
end.

Спасибо. А насчёт того работает ли - это не факт. В любом случае, она не моя и в любом случае, ещё раз спасибо. Единственное, я всё равно немного не понимаю ЗАЧЕМ мы присваивает произведение.

Мб компилиться и будет, но выполнит ли то, что от нее требуют - вообще не факт. В простонародье это называется говнокодом :)

Вот, исправил программу, она не работала, вот верный вариант:var i,k,n,m:integer;label syda;beginsyda:write('Vvedite N: ');readln(n);write('Vvedite M: ');readln(m);if (m=0) and (m=0) then goto syda elseif (m<>0) and (n<>0) thenbegink:=n*m; i:=k; end;while i>0 do begini:=i-1;end;writeln('NOK ',m,' i ',n,' raven ',k)end.

Хеker, огромное вам спасибо