PapiruS

Они плохие провайдеры все время лаги а куда нибудь дозвониться так это вообще пи............

это мое личное мнение,а пользуюсь от безвыходности

хотел поставить ubuntu 9.10 http://soft.sibnet.ru/soft/?id=19238

Вроде все установилась, но после первой перезагрузки монитор начинает мигать раз5 и потом зависает комп. В чем может быть проблема?

Видюха ATI RADEON HD 4800

kygecHuk

есть еще чтонибудь подобное?

Buch

про грудные я спрашивал как дома подкачать, а весов нету никаких. А так я в качалку хожу.

42

условия полностью последней задачи запиши.А то чего то вроде нехватает

скажите как можна накачать нижнюю часть грудных дома. И как накачать еще переднюю часть плеч?

Добавлено спустя 21 секунду:

чтоб плечи были круглые)

PapiruS, каких еще массивов и строк... тут они совершенно неуместны. так и быть без функций тебе переделал (а вообще сам хоть бы немного пробовал понять, что и как):

var
i,k:integer;
i_dec_cnt,i_n_dec:integer;
f_i,f_j,f_t,result:integer;
begin
readln(k);
i:=1;
i_dec_cnt:=1;
//while (k>dec_cnt(i)) do
while (k>i_dec_cnt) do
begin
// k:=k-dec_cnt(i);
k:=k-i_dec_cnt;
inc(i);
// from function dec_cnt
f_i:=1;f_t:=i;
while (f_t>=10) do
begin
f_t:=f_t div 10;
inc(f_i);
end;
i_dec_cnt:=f_i;
// end function
end;
//result
f_j:=i_dec_cnt+1-k;
while (f_j>1) do
begin
i:=i div 10;
dec(f_j);
end;
result:=i mod 10;
//end result
writeln('Result = ',result);
end.

можешь мне объяснить ход решения задачи плз?По какому правилу мы нашли эту цифру. А то куча переменных и трудно разобраться.

а что со звуком та? нет почему то его.

а кто первое место занял?

конец это есть начало

А умирать страшно

X-tender

спасиба за решение. надо вот тока теперь разобраться.

//

bayarookie

ничего вводить не надо.Последовательность уже дана,вводится тока число k, нужно вывести на экран k-ую цифру бесконечной последовательности состоящей из подряд выписанных натуральных чисел:

123456789101112131415.....100101102103......100000.........

bayarookie

последовательность эта бесконечная, в ней выписаны подряд все натуральные числа:123456789...20212223...30313233...4142...............100101102103...1000100110021003............................... 1000000....

она не вводитися с клавиатуры, а просто задана мысленно))) Нужно выдать к-ую цифру этой посл-ти, где к-вводится с клавы

И задача эта на тему циклы не строки и не масивы и не процедуры и ф-ии.

плз решите

Добавлено спустя 2 минуты 27 секунд:

канешна с помощью массивов или строк она решается в одну строку))) но мне задали ее решить на тему циклические алгоритмы.

когда сидиш в интернет кафе не забывайте нажать слово выход перед тем как админ вырубит комп от сети а,то кто нибудь после тебя сядет на твое место откроет контакт а там твоя страница,и вот тут начинает играть фантазия

посмотрите ктонить плз мою задачку

X-tender

мне нужно было бы другое решение) прочитай то что я написал выше под задачей

Дано натуральное число k. Напечатать k-ую цифру последовательности: 12345678910111213141516171819......., в которой выписаны подряд все натуральные числа.

помогите ктонить плз решить, эта задача в общем на тему:циклы, и решить ее нужно используя тока циклы с пред и пост условиями,ну и целочисленные деления.

ее ранее уже решали но мне нужно др. способом.

заранее буду благодарен

OverDrive

ты заблуждаешся у них это только видимость а так там тоже мусора валяется по отдельным районам и не мало.

так везде почти ,ведь почти все люди посвоей сути свиньи

а все уже решил)

martinges

спасиба большое тебе)

помогите вот еще одну задачку:

Определить все седловые точки (если таковые вообще имеются) в действительной матрице размера 5х6. Элемент матрицы называется седловой точкой, если он является одновременно наименьшим в своей строке и наибольшим в своем столбце.

uses crt;

var i,j,k,min,max,sedl_min,sedl_max:integer;

a:array[1..5,1..6]of integer;

BEGIN

clrscr;

for i:=1 to 5 do

for j:=1 to 6 do read(a[i,j]);

min:=a[1,1];

max:=a[1,1];

for j:=1 to 6 do

begin

for i:=1 to 5 do

if a[i,j]

begin

min:=a[i,j];

sedl_min:=i;

end;

i:=sedl_min;

max:=a[i,j];

for k:=1 to 6 do

begin

if a[i,k]>max then

begin

max:=a[i,k];

sedl_max:=k;

end;

end;

if sedl_max=j then write('Седловые точки: a[',i,',',j,']=',a[i,j],' ');

end;

readkey;

END.

исправьте плз неправильно она чета работает

uses crt;

const n=4;

var x,y:array[1..n]of real;

i,j,a,b:integer;

r:real;

BEGIN

writeln('Vvedite koordinaty ',n,' tochek');

for i:=1 to n do

begin

read(x);

read(y);

end;

r:=sqrt(sqr(x[2]-x[1])+sqr(y[2]-y[1]));

a:=1;

b:=2;

for i:=1 to n-1 do

for j:=i+1 to n do

begin

if sqrt(sqr(x[j]-x)+sqr(y[j]-y))>=r then

begin

r:=sqrt(sqr(x[j]-x)+sqr(y[j]-y));

a:=i;

b:=j;

end;

end;

writeln('Maximalnoe rasst meshdy ',a,' Ё ',b,' paroi:',r:0:2);

readkey;

END.

1.Даны координаты N точек на плоскости. Найти номера всех пар точек, расстояние между которыми наибольшее.

я сделал но у меня находит тока одну пару. А нужно чтобы находило все пары с наибольшим расстоянием

помогите плз

нереал какойта) че каждый день пишут новые песни чтоли?

Добавлено спустя 2 минуты 59 секунд:

((((почему то кроме папок за 1 и2-ое не вижу ничего

хмм странно но почему то я не вижу новой папки за 03.05.2009

может кто поделиться кто по какой программе занимается?

Хр

спасиба!!!

еще не успел скачать за 1-ое мая уже появилось за 2-е