773
Это наибольшее трехзначное, а всего 12 трехзначных чисел
<span>
<span><span>
773
</span>
<span>
764
</span>
<span>
755
</span>
<span>
746
</span>
<span>
737
</span>
<span>
674
</span>
<span>
647
</span>
<span>
575
</span>
<span>
557
</span>
<span>
476
</span>
<span>
467
</span>
<span>
377
Программу можно посмотреть Alt+F11
</span></span></span>
Будем считать, что ввод значения = 0 признак окончания ввода членов последовательности. Тогда можно попробовать так:
var a,max,maxn,n: integer;
begin
readln(a);
max:=a; maxn:=1;n:=1;
while a<>0 do begin
readln(a);
n:=n+1;
if a>max then begin
max:=a; maxn:=n;
end;
end;
writeln('Максимальный : ',max,' номер : ',maxn);
end.
Ответ:
function f(n: integer): integer;
begin
if n>100 then f:=n-10
else f:=f(f(n+11))
end;
Вычислите f(99).
Объяснение:
f=91