Форум » Рекурсивные процедуры и функции » 16 задание » Ответить
16 задание
Артур: Мне нужно найти все числа, в которых цифр 8>=2 В чём ошибка?[pre2] var x,k,p,i:integer; function f(n:integer):integer; begin if n<=5 then begin f:=n+15;exit;end; if n>5 then begin f:=((F(n DIV 2))+(n*n*n-1));exit;end; if n>5 then begin f:= F(n-1)+2*n*n+1;exit;end; end; begin for i:=1 to 1000 do begin k:=0; x:=f(i); p:=0; while x>0 do begin k:=x mod 10; x:= x div 10; if k=8 then p:=p+1; end; if p>=8 then writeln(f(i)); end; end.[/pre2]
Ответов - 2
Поляков: Начните с проверки условий внутри функции.
Артур: Поляков пишет:
полная версия страницы