turbo pascal-zadanie

[SARS]

hedVB - na naturalnym białku servatkowym ciężko mieć 50cm w łapie: )

[hedVB]

No niby tak - ale tego co się nasłuchałem o metanabolu itp to strach w prawdzie kumpel doszedł naturalnie do 90 na klate dopiero wtedy zaczął brać mete i jakoś trochę otępiał, dawniej był bystrzejszy więc wolę nie ryzykować

/I nie przesadzaj że masz 50cm w łapie

Ale offtop

[SARS]

hedVB - no jeszcze nie ale to tylko kwestia czasu i kwestia środków; te 6 cm zrobię w 2 lata tak mysle;
Na razie kupuiłem nowe pro-hormony. Też jest po nich power - ale w polsce są nielegalne i ewentualnie można je dostać z ekspozycji sklepowych po znajomości..

PS: co do offtopa to chuj z tym - i tak nikt już nic nie wniesie do tego tematu
co to znaczy do 90kg naturalnie na klatę ? na 1 raz ?

[hedVB]

To znaczy że nie brał żadnych sterydów, wszystko naturalnie - położył się na ławeczce i dawaj 90 kg, niestety stanął na tym poziomie dopóki nie zaczął brać metanabolu - teraz wyciska grubo ponad setke ale nie wiem dokładnie ile A ja szukałem sposobu na szybki przyrost masy więc zakupiłem 2,5 kg białka serwatkowego i teraz tego zjeść nie moge

[SARS]

hedVB - no wiesz...białko nie jest suplementem na jak sie wyraziłeś szybki przyrost masy no ale jest budulcem i coś do przodu pójdzie; Jedz ok 3gr na 1kg masy ciała i do tego min. 4gr węglowodanów na 1kg masy ciała to coś Ci pójdzie;
A metanabol to lajt jak dla mnie to po 400-500 tab w cylku trzeba wziąć żeby coś szarpneło

PS: a wynik nie jest imponujący te 90kg nawet jak na sucho; no ale lepiej ćwiczyć niż nic nie robic

[hedVB]

A metanabol to lajt jak dla mnie to po 400-500 tab w cylku trzeba wziąć żeby coś szarpneło

Jakie chcesz zielsko na grób?

90KG na klate bez wspomagaczy to wydaje mi się bardzo dobry wynik, niektórzy odrazu zaczynają od anabolików takim tylko współczuć

Jedz ok 3gr na 1kg masy ciała i do tego min. 4gr węglowodanów na 1kg masy ciała to coś Ci pójdzie;

To znaczy 3 gramy białka * moja waga = jakbym tyle zjadł to bym miał cały tydzień wrażeń zapewniony

[SARS]

hedVB - nie nie bój się tak tej dawki; Methandienone można zażywać w dawce do 40mg dziennie czyli 8 tab (po 5 mg)

8tab*45dni = 365 tabletek - no faktycznie z tym 500 trochę przesadziłem
bo nie można go stosować dłużej niż 6tyg ze względu na wysokoą hepatotoksyczność (grupa 17AA) - szkodliwa dla wątroby;

Jesli chodzi o to białko to niestety - jak chcesz mieć wyniki to min 2gr na 1kg masy ciała a kulturyści zawodowi jedzą po 3...

[hedVB]

Dobra kończmy bo jeszcze nam się oberwie

Wiem jak wygląda cykle mety a co do białka to po takiej dawce masz dni nie wychodne - próbowałem zwiększyć dawkę teraz żałuje to zdecydowanie za dużo

EOT

[matzo]

Dobra, sorry, że odkopuje ale szukam właśnie na necie wszystkich kłopotów z zadaniami i rozwiązuje, żeby poćwiczyć.

Oto Moja wersja rozwiązania tego problemu:

{Napisz program ktory bedzie wyliczal spostod "N" podnaych liczb,
ilo˜† liczb parzystych oraz nieparzystych podajĄc ich sum© oras ˜redniĄ}
   Uses CRT;
var
 c:word;
 n:Char;
 a,znak,b,kl:integer;
 super,super2,x,y,z:extended;
 liczba:array[1..30000] of integer;

 PROCEDURE wprowadz;

   begin
  writeln('wprowadz liczbe nr: ',a,'z 30000;');
       readln(liczba[a]);
  writeln('wprowadziles na pozycji ',a,'z 30000 liczbe: ',liczba[a]);
  writeln('Jesli chcesz zanoäczy† wprowadzanie wcisnij [ESC]');
  repeat until keypressed;
    n:=readkey;
     c:=Ord(n);
   end;

 PROCEDURE parzyste;

  begin
       a:=0; b:=0; super:=0;
                                     repeat
   a:=a+1;
   x:=liczba[a]/2; y:=round(x);
   if x=y then
   begin
   b:=b+1;
   super:=super+liczba[a];
   end;
                                    until a=kl;
  super2:=super/b;
    clrscr;
    writeln('Suma l.parzystych wynosi: ',super); writeln('ich srenia natomiast: ',super2);
    readln;
   end;

  PROCEDURE nieparzyste;

   begin
   a:=0; b:=0; super:=0;
                                  repeat
   a:=a+1;
   x:=liczba[a]/2; y:=round(x);
   if x<>y then
      begin
   b:=b+1; super:=super+liczba[a];
      end;
                                 until a=kl;
  super2:=super/b;
    clrscr;
    writeln('Suma l.nieparzystych wynosi: ',super); writeln('ich srenia natomiast: ',super2);
    readln;
  end;

BEGIN

  clrscr;
  writeln('Wprowadz liczby, a gdy skoäczysz wcisnij [ESC]');
            a:=0;
  repeat a:=a+1;
wprowadz;
  until c=27; kl:=a;

    repeat
   clrscr; 
  writeln('[1] suma oraz srednia liczb parzystych');
  writeln('[2] suma oraz srednia liczb nieparzystych');
  writeln('[3] exit');
      readln(znak);
  if znak=1 then parzyste; if znak=2 then nieparzyste;
   until znak=3;

END.