Вот значения при которых мы получим такой ответ:
9 10 11 12 13 14 15 16 17 18 19 20
Наибольшее = 20.
Прости, нашел я это глупым методом поставив цикл for k:0 to 1000000
и выводя все значения. Ибо нету времени разбираться... Не знаю так-же что такое longint , потом обязательно для себя рассмотрю что это :)
Вот пример того как я это нашел, хоть медот и тупой, но он работает:
var k, i,max,m : longint;
function f(n: longint): longint;
begin f := n * n * n;
end;
function g(n: longint): longint;
begin g := 3*n + 3;
end;
begin i := 1;
for k:=0 to 1000000 do begin
while f(i) < g(k) do i := i+1;
if i=4 then writeln(k);
end;
end.
a156bc
s = 123456
q = abc
delete (s,2,3) = 156
(/// Удаляет из строки s count символов с позиции index
procedure Delete(var s: string; index, count: integer);)
insert (s,q,2) = a156bc
(/// Вставляет подстроку source в строку s с позиции index
procedure Insert(source: string; var s: string; index: integer);)
Дано:
размер=25*30 см
разр. способн.=300*300 dpi
I=3 байт=24 бит
Найти:
V - ?
Решение:
V=K*I
1 дюйм = 2.54 см
25*2.54=9.8 дюймов
30*2.54=11.8 дюймов
K=9.8*11.8*300*300=10 407 600
V=10 407 600*24=249 782 400 бит : 8=31 222 800 байт : 1024≈30 491 Кб : 1024≈29.8 Мб
Ответ: 29.8 Мб
// сойдет?
uses graphAbc;
const
d = 40;
w = d*12;
h = d*8;
x0 = d div 2;
y0 = d div 2;
begin
setwindowsize(w,h);
arc(x0+2*d,h-y0,2*d,180,90);
line(x0+2*d,h-y0-2*d,x0+10*d,h-y0-2*d);
rectangle(x0+10*d,h-y0-2*d,x0+11*d,h-y0-2*d-d div 4);
rectangle(x0+3*d,h-y0-2*d,x0+5*d,h-y0-3*d div 2);
rectangle(x0+7*d,h-y0-2*d,x0+9*d,h-y0-3*d div 2);
arc(x0+6*d,h-y0-2*d,4*d,180,0);
circle(x0+8*d,h-y0-4*d,d div 2);
end.
A:\TEST\INF\MY так как пользователь последовательно идёт к корню диска "А"