Форум » Рекурсивные процедуры и функции » задание 16 №36 » Ответить
задание 16 №36
Sikvllz: Можете подсказать пожалуйста в чем моя ошибка ? [pre2] function F(n,m:integer): integer; begin if m = 0 then F:= n else F:= F(m, n mod m) end; var m,n,k:integer; begin for n:=100 to 1000 do for m:=100 to 1000 do begin if F(n,m)=30 then inc(k); end; writeln(k); end. [/pre2]
Ответов - 3
Поляков: Вы считаете пары (n,m), а не значения n.
Sikvllz: Можете подсказать как считать именно значения n ?
Поляков: Sikvllz пишет: как считать именно значения n ? [pre2] if F(n,m)=30 then begin inc(k); break; end; [/pre2]
полная версия страницы