PapiruS
-
Постов
291 -
Зарегистрирован
-
Посещение
Тип контента
Профили
Форумы
Блоги
Галерея
События
Сообщения, опубликованные PapiruS
-
-
мясу канает худ дефенс?
Добавлено спустя 34 секунды:
и еще 2 баша суммируются?
-
Насчет питания, уже обсуждалось в этой теме.
Лучше брать питание проверенных изготовителей, употреблял следующие продукты:
Протеины:
- Elite Whey Protein, фасовка 2275 гр (пр-во Dymatize) - шокол. вкус, легко разводится, нормально усваивается;
- Prostar Whey Protein, фасовка 2275 гр (Ultimate Nutrition) - ванильный вкус, разводится хуже чем Elite Whey Protein, в остальном разницы не заметил.
Аминокислоты:
- Super Amino 4800, фасовка 300 капс., (пр-во Dymatize Nutrition) - в порции 4 капс. нормальный размер (хорошо глотаются)
- Amino 2700, фасовка 120 табл., (пр-во Universal Nutrition) - в порции 2-е табл. мне они нравились больше чем Super Amino 4800, но они большие еле-еле в горло лезут (((.
Из отечественных продуктов, ощутил работу Коллагена (Bull Nutrition) для суставов, реально работает[/quote
]
можешь цены написать? и где можна купить
-
если появится раздача с Dfm буду очень рад)))
-
в папке NEW & EXCLUSIVE не вижу я там за 21апреля
-
а в какой папке обновления та?
-
PapiruS, я код просил, а не вывод.
Вот абсолютно рабочий код:
function dec_cnt(t:integer):integer;
var i:integer;
begin
i:=1;
while (t>=10) do
begin
t:=t div 10;
inc(i);
end;
result:=i;
end;
function n_dec(t,i:integer):integer;
var
j:integer;
begin
j:=dec_cnt(t)+1-i;
while (j>1) do
begin
t:=t div 10;
dec(j);
end;
result:=t mod 10;
end;
var
i,k:integer;
begin
readln(k);
i:=1;
while (k>dec_cnt(i)) do
begin
k:=k-dec_cnt(i);
inc(i);
end;
writeln('Result = ',n_dec(i,k));
end.ты здесь result не объявил)
вот исправил но не работает
function dec_cnt(t:integer):integer;var i,result:integer;
begin
i:=1;
while (t>=10) do
begin
t:=t div 10;
inc(i);
end;
result:=i;
end;
function n_dec(t,i:integer):integer;
var
j,result:integer;
begin
j:=dec_cnt(t)+1-i;
while (j>1) do
begin
t:=t div 10;
dec(j);
end;
result:=t mod 10;
end;
var
i,k:integer;
begin
readln(k);
i:=1;
while (k>dec_cnt(i)) do
begin
k:=k-dec_cnt(i);
inc(i);
end;
writeln('Result = ',n_dec(i,k));
end.
-
X-tender
4Result = 21188
-
люди привет как вы думаете можно ли звонить без симки?
почему задался токим вопросом да как то набрал 112 а он звонит значит надо просто прошить и все
давайте подумаем вместе как?
-
PapiruS
что-то типа того(синтаксис паскаля не очень помню):
function dec_cnt(t:integer):integer;
var i:integer;
begin
i=1;
while (t>=10) do
begin
t:=t div 10;
inc(i);
end
result:=i;
end;
function n_dec(t,i:integer):integer;
var
j:integer;
begin
j=dec_cnt(t)+1-i;
while (j>=0)
begin
t:=t div 10;
dec(j);
end;
result:=t mod 10;
end;
var
i,k:integer;
begin
readln(k);
i=1;
while (k>dec_cnt(i)) do
begin
k:=k-dec_cnt(i);
inc(i);
end;
writeln("Result = ",n_dec(i,k));ps. Написал для теста на перле и попытался перевести в паскаль, сорри если что-то не так. на перле:
use strict;
sub dec_cnt{
my $t=shift;
my $i=1;
while ($t>=10)
{
$t/=10;
$i++;
}
return $i;
}
sub n_dec
{
my $t=shift;
my $i=shift;
my $j=dec_cnt($t)+1-$i;
while (--$j)
{ $t/=10;}
return $t%10;
}
my $k=<>;
my $i=1;
while ($k>dec_cnt($i))
{
$k-=dec_cnt($i);
$i++;
}
print "Result=".n_dec($i,$k);чета я набрал и нето он маленько находит:ввожу 4 выдает 21187
-
почему не качается? пишет торент не зарегестрирован
-
X-tender
просто мне нужна блок-схема, а функцию не надо тут испоьзовать
-
PapiruS
что-то типа того(синтаксис паскаля не очень помню):
function dec_cnt(t:integer):integer;
var i:integer;
begin
i=1;
while (t>=10) do
begin
t:=t div 10;
inc(i);
end
result:=i;
end;
function n_dec(t,i:integer):integer;
var
j:integer;
begin
j=dec_cnt(t)+1-i;
while (j>=0)
begin
t:=t div 10;
dec(j);
end;
result:=t mod 10;
end;
var
i,k:integer;
begin
readln(k);
i=1;
while (k>dec_cnt(i)) do
begin
k:=k-dec_cnt(i);
inc(i);
end;
writeln("Result = ",n_dec(i,k));ps. Написал для теста на перле и попытался перевести в паскаль, сорри если что-то не так. на перле:
use strict;
sub dec_cnt{
my $t=shift;
my $i=1;
while ($t>=10)
{
$t/=10;
$i++;
}
return $i;
}
sub n_dec
{
my $t=shift;
my $i=shift;
my $j=dec_cnt($t)+1-$i;
while (--$j)
{ $t/=10;}
return $t%10;
}
my $k=<>;
my $i=1;
while ($k>dec_cnt($i))
{
$k-=dec_cnt($i);
$i++;
}
print "Result=".n_dec($i,$k);можешь без процедур и функций сделать?
Добавлено спустя 2 минуты 20 секунд:
Lakers
помнишь ты решал задачу
uses crt;
var x,m1,m2:integer;
begin
clrscr;
read(x);
m1:=x;
m2:=x;
while x<>0 do
begin
if (xm1) then m2:=x;
if (x
begin
m2:=m1;
m1:=x;
end;
read(x);
end;
writeln('MIN1: ',m1);
writeln('MIN2: ',m2);
readkey;
end.
когда вводишь последовательность 1 2 0 он выдает типа: Min1=1; min2=1
как исправить?
-
Inclodes
ты маленько не понял задание) последовательность тут идет бесконечная 1234567891011..1920..2930..3940..49.....99100...199..1000..1999......... и нужно выдать к-ую цифру этой послед-ти
Добавлено спустя 1 минуту 19 секунд:
и строки и масивы не используются, а тока циклы да деления целочисленные
-
а про баскетбол неукого нету?
-
Дано натуральное число k. Напечатать k-ую цифру последовательности: 12345678910111213..., в которой выписаны подряд все натуральные числа.
помогите плз решить, мне нужно блок-схему составить, но можна проста на паскале тока без масивов и процедур там всяких паскалевских.
заранее всем спасиба)
-
меня можете взять? ник Duncan
-
Lakers
спс за решение , но 2-ую нужно без масива, для блок-схемы
а в первой почему та там на единицу ошибается
Добавлено спустя 6 минут 28 секунд:
uses crt;
var x,y,p,k:integer;
s:longint;
begin
clrscr;
write('N= ');readln(k);
x:=2;
y:=1;
p:=1;
s:=0;
while x<=k do
begin
s:=s+x;
x:=y+p;
p:=y;
y:=x;
end;
writeln('SUM= ',s);
readkey;
end.
-
помогите решить задачи плз.Надо написать блок-схему или код на паскале чтобы можно было переделать под блок-схему
Дано натуральное число k. Напечатать k-ую цифру последовательности: 12345678910111213..., в которой выписаны подряд все натуральные числа.
Дана последовательность из целых чисел, которые вводятся по одному. За последним числом вводится нуль. Найти два наименьших числа последовательности.
-
Lakers
cпс за решение но тут надо было найти значение выражение справой части а не арктангенса вот так:
-
bayarookie
это кароче где в прямоугольничках да в овальчиках пишется алгоритм программы.
просто напиши решение мне на паскале но без функций там всяких и процедур. чтоб были простые условия да присваяивания
-
Становая тяга на прямых ногах.
Сгибание на тренажере для этих самых мышц.
а становая на согнутых ногах че дает?
-
var
x, y, z: real;
i, j: integer;
begin
x := 0;
while x < 0.99998 do
begin
x := x + 0.00001;
y := x;
i := 1;
j := 1;
while true do
begin
i := i + 2;
j := j * -1;
z := Power(x, i) / i;
if z < 0.00001 then Break;
y := y + j * z;
end;
writeln(' x = ', x:1:5, ' y = ', y:6:4, ' = ', ArcTan(x):6:4);
end;
end.может и нагнал чего-то, перепроверь
спс за решение но мне надо для блок схемы,мб переделаешь?
-
-
KrUGER
а тебе не страшно будет,скидывать куда на общее обозрение или в личку а?
Подписи против введения платы за внутренний трафик
в Темы-обсуждения
Опубликовано
Я против введения платы за внутренний трафик PapiruS