Вход на сайт
кто в ПАСКАЛЕ разбирается?
111 просмотров
Перейти к просмотру всей ветки
в ответ Niko13 25.10.02 00:39
еще один вопрос,
а=16 b=8
BEGIN
clrscr;
write('число_1=',0);readln(a,0);
write('число_2=',0);readln(b,0);
while b>0 do
begin
o:=a mod b;
a:=b;
b:=o;
end;
NOD:=a;
writeln(NOD,0);
NOK:=a*b div NOD;
writeln(NOK,0);
END.
ПОЧЕМУ ОН ПИШЕТ, ЧТО NOK=0 ???
а=16 b=8
BEGIN
clrscr;
write('число_1=',0);readln(a,0);
write('число_2=',0);readln(b,0);
while b>0 do
begin
o:=a mod b;
a:=b;
b:=o;
end;
NOD:=a;
writeln(NOD,0);
NOK:=a*b div NOD;
writeln(NOK,0);
END.
ПОЧЕМУ ОН ПИШЕТ, ЧТО NOK=0 ???