<span>var i:integer;
n,k:real;
begin
n:=10;
k:=10;
for i:=1 to 6 do
begin
n:=1.1*n;
k:=k+n;
end;
writeln(k:5:2);
end.</span>
<u><em>Я думаю, что программа может управлять работой компьютера, если она находится в оперативной системе!</em></u>Надеюсь, что помогла:з
вообщем получиться такая фраза : жду тебя в семь
~n/3 достаточно.
Бросаем первый с этажа номер n/3. Если разбился, то бросаем второй по очереди с 1 этажа, потом со 2, ... до n/3 пока не разобьется. Так найдем этаж.
Если первый шар не разбился. бросаем его с этажа 2n/3. Если тут разбился, то бросаем второй с этажа n/3+1, потом с n/3+2, ... пока не разобьется.
Если 1 шар при падении с 2n/3 не разбился, то бросаем его с 2n/3+1, потом с 2n/3+2, ... пока не разобьется.
Алгоритм на Паскале:
var a,b,c,d,x:integer;
begin
readln(a,b);
с:=a*a;
d:=b*b;
abc(x)=abc(c-d);
writeln(abc(x));
end.
Вроде так.)