-
Постов
291 -
Зарегистрирован
-
Посещение
Тип контента
Профили
Форумы
Блоги
Галерея
События
Сообщения, опубликованные 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-ую цифру бесконечной последовательности состоящей из подряд выписанных натуральных чисел:
допустим k=15 значит на экране должно быть 2, если k=7 значит 7.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-е
«Сибирьтелеком» приглашает к участию в акции «Новые краски»! Новый тариф 999
в Интернет и провайдеры
Опубликовано
Они плохие провайдеры все время лаги а куда нибудь дозвониться так это вообще пи............
это мое личное мнение,а пользуюсь от безвыходности