Вход на сайт
кто в ПАСКАЛЕ разбирается?
111 просмотров
Перейти к просмотру всей ветки
в ответ Niko13 25.10.02 14:43
while b>0 do
Смотри к чему ты здесь стремишься ...
begin
o:=a mod b;
a:=b;
b:=o;
end;
а здесь ты умножаешь твое а на б которое равно нулю :) заведи еще переменную , даже две - для старых значений а и б ... а что тебе с функцией то не понравилось то ?
NOK:=a*b div NOD;
Всегда с приветом ...
-=Alex Den=-
Смотри к чему ты здесь стремишься ...
begin
o:=a mod b;
a:=b;
b:=o;
end;
а здесь ты умножаешь твое а на б которое равно нулю :) заведи еще переменную , даже две - для старых значений а и б ... а что тебе с функцией то не понравилось то ?
NOK:=a*b div NOD;
Всегда с приветом ...
-=Alex Den=-
---(¿) ---
Стань карлсоном - купи себе вентилятор
Стань карлсоном - купи себе вентилятор