1.
(*program pozdravi*)
program pozdrav;
begin
writeln ('ahoj');readln;
end.
2.
(*scitac*)
program soucet;
var a,b,c:integer;
begin read(a,b);
c:=a+b;
writeln(c);
readln
3.
(*obvod a obsah ctverce*)
program obvod;
var a,y,o:integer;
begin write('zadej strany ctverce');
readln(a);
y:=(4*a);
o:=(a*a);
writeln('obsah ctverce je',y);
writeln('obvod ctverce je',o);
writeln('to koukas co');
readln;
end.
4.
(*obvod a obsah obdelnika*)
program obvod;
var a,b,y,o:integer;
begin writeln('zadej strany obdelnika');
writeln('stranu a');
readln(a);
writeln('stranu b');
readln(b);
y:=(2*(a*b));
o:=(a*b);
writeln('obsah obdelnika je',o);
writeln('obvod obdelnika je',y);
writeln('to koukas co');
readln;
end.
5.
(*obvod a obsah kruhu*)
program kruh;
var r:integer;
o,s:real;
begin writeln('zadej polomer r');
readln(r);
o:=2*3.14*r;
s:=3.14*r*r;
writeln('obvod je',o:8:3);
writeln('obsah je',s:8:3);
writeln('nezdrzuj, priste si vem kalkulacku');
readln
end.
6.
(*obvod a obsah pravouhleho trojuhelnika*)
program trojuhelnik;
var a,b,c:real;
o,s:real;
begin writeln('napis stranu a');
readln(a);
writeln('napis stranu b');
readln(b);
c:=sqrt(a*a+b*b);
o:=(a+b+c);
s:=(a*b)/2;
writeln('strana c je');
writeln(c:8:3);
writeln('obvod je');
writeln(o:8:3);
writeln('a obsah je');
writeln(s:8:3);
writeln('diky za pocitani, pro ukonceni stisknete ENTER');
readln;
end.
7.
(*prevod*)
program prevadec;
var a,b,c:real;
begin writeln('napis cislo');
readln(a);
writeln('pro prevod na milimetry stiskni 1');
writeln('pro prevod na decimetry stiskni 2');
writeln('pro prevod na kilometry stiskni 3');
readln(b);
if b=1 then c:=(a*1000);
if b=2 then c:=(a*100);
if b=3 then c:=(a/1000);
writeln(c:8:3);
readln;
end.
8.
(*vypise sousedy znaku*)
program vypisovac;
var z,p,n:char;
begin writeln('napis znak');
readln(z);
p:=pred(z);
n:=succ(z);
writeln('predchudce je');
writeln(p);
writeln('nasledovnik je');
writeln(n);
readln;
end.
9.
(*pocet kraliku a slepic*)
program pocitac;
var a,b,c,d:integer;
begin writeln('napis pocet kraliku');
readln(a);
writeln('napis pocet slepic');
readln(b);
c:=(a*4+b*2);
d:=(a+b);
writeln('pocet hlav je');
writeln(d);
writeln('pocet nohou je');
writeln(c);
readln;
end.
10.
(*celociselny podil a zbytek*)
program podil;
uses crt;
var a,b,c,d:integer;
begin clrscr;
writeln('zadej 2 cisla');
readln(a);
readln(b);
c:=a div b;
textcolor(yellow);
writeln('vysledek je', c);
d:=a mod 2;
textcolor(red);
writeln('zbytek je', d);
readln;
end.
11.
(*prekoduje znak o dany pocet pozic*)
program prekodovac;
uses crt;
var vs,vy,q,w:char;
a,b:integer;
begin clrscr;
readln(vs,a);
b:=ord (vs);
b:=b+a;
vy:=chr(b);
writeln(vy);
writeln('zmackni q pro ukonceni');
repeat
if keypressed then readln(w);
until w='q';
end.
12.
(*vytiskni vetsi ze 2 cisel*)
program vetsi;
uses crt;
var w:char;
a,b,c:real;
begin clrscr;
writeln('napis cislo a');
readln(a);
writeln('napis cislo b');
readln(b);
if a<b then writeln('a je mensi jak b');
if a>b then writeln('a je vetsi jak b');
if a=b then writeln('nezkousej to na me, jsou stejny');
textcolor(red);
writeln('napis q pro ukonceni');
repeat
if keypressed then readln(w);
until w='q';
end.
13.
(*vytiskni vetsi ze 2 cisel*)
program vetsi;
uses crt;
var w:char;
a,b,c:real;
begin clrscr;
writeln('napis cislo a');
readln(a);
if a<0 then writeln('cislo je zaporne');
if a>0 then writeln('cislo je kladne');
if a=0 then writeln('neni kladne, ani zaporne');
textcolor(red);
writeln('napis q pro ukonceni');
repeat
if keypressed then readln(w);
until w='q';
end.
14.
(*vytiskni vetsi ze 2 cisel*)
program vetsi;
uses crt;
var w:char;
a,b,c:real;
begin clrscr;
writeln('napis cislo a');
readln(a);
if a<0 then writeln('cislo je zaporne');
if a>0 then writeln('cislo je kladne');
if a=0 then writeln('neni kladne, ani zaporne');
textcolor(red);
writeln('napis q pro ukonceni');
repeat
if keypressed then readln(w);
until w='q';
end.
15.
(*rozhodnete kolikaciferne cislo je*)
program cifry;
uses crt;
var a:integer;
begin clrscr;
writeln('napis cislo');
readln(a);
if a<10 then writeln('jednociferne')
else if a>99 then writeln('viceciferne');
readln;
end.
16.
(*vetsi cislo*)
program cislo;
uses crt;
var x:char;
a,b,c:integer;
begin clrscr;
writeln('zadej cislo');
readln(a);
writeln('zadej druhe cislo');
readln(b);
if a>b then writeln(a:5,b:5);
if a<b then writeln(b:5,a:5);
if a=b then writeln('jsou stejny');
textcolor(4);
writeln('pro ukonceni zmackni q');
repeat
if keypressed then readln(x);
until x='q';
end.
17.
18.
(*pozdrav podle hodin*)
program hodiny;
uses crt;
var a,b,c:integer;
begin clrscr;
writeln('napiste kolik je hodin, bez minut');
readln(a);
if a<12 then writeln('dobre dopoledne')
else if a<=18 then writeln('dobre odpoledne')
else if a<=24 then writeln('dobry vecer')
else writeln('neblbni');
readln;
end.
19. (*program ktery rozhodne typ znaku*)
program znaky;
uses crt;
var a: char;
begin clrscr;
writeln ('zadej znak');
readln (a);
if (a>'A') and (a<='Z') then writeln ('velke pismenu')
else if (a>='a')and(a<='z') then write ('male pismeno')
else if (a>='0') and (a<='9') then write('cislo')
else write ('jiny znak');
readln;
end.
kalkulacka
(*kalkulacka*)
program pocitani;
uses crt;
var cis1,cis2,vys:integer;
ope:char;
begin clrscr;
writeln ('zadej cislo 1:');
readln (cis1);
writeln ('zadej operator:');
readln (ope);
writeln ('zadej cislo 2:');
readln (cis2);
if(ope='+') then vys:=cis1+cis2;
if(ope='-') then vys:=cis1-cis2;
if(ope='*') then vys:=cis1*cis2;
if(ope='/') then vys:=cis1 div cis2;
writeln ('vyjde nam ', vys);
readln;
end.
Pekař
(*pekar*)
program delta;
uses crt;
var a,b,c,d: real;
begin clrscr;
writeln ('ze vikend ma');
readln (a);
c:=(a/100)*15;
b:=(a-c)-1000;
writeln ('za mesic zbyde ',b:8:3);
d:=b*52;
writeln ('za rok ma ',d:8:3);
if d<15000
then writeln ('nekoupi si auto');
if d>15000
then writeln ('muze si koupit auto za 15000Kc');
if d>25000
then writeln ('muze si kopuit auto za 25000Kc');
readln;
end.
(*opakovaniapodminka*)
program vypisovac;
uses crt;
var n,i: integer;
begin clrscr;
writeln ('zadej cislo');
readln (n);
i:=0;
repeat i:=i+1;
writeln (i)
until i=n;
readln;
end.
Vypisovac
(*opakovaniapodminka*)
program vypisovac;
uses crt;
var n,i: integer;
begin clrscr;
writeln ('zadej cislo');
readln (n);
i:=0;
repeat i:=i+1;
writeln (i)
until i=n;
readln;
end.
(*rozhoduje co je znak*) program rozhodovac; uses crt; var a,b:char; begin clrscr; writeln('klikni na libovolnou klavesnici'); repeat readln(a); case a of '0'..'9':writeln('cislo'); 'a'..'z':writeln('male pismeno'); 'A'..'Z':writeln('velke pismeno'); else writeln('jiny znak'); end; until a=';'; end.
(*zaradi datum*) program zarazovac; uses crt; var a,b:integer; begin clrscr; writeln('napiste datum (den)'); readln(a); writeln('napiste mesic (cislem)'); readln(b); case b of 1..3:writeln('1 ctvrtleti'); 4..6:writeln('2 ctvrtleti'); 7..9:writeln('3 ctvrtleti'); 10..12:writeln('4 ctvrtleti'); else writeln('nevymyslej blbosti'); end; readln; end.
(*bmi index*) program bmi; uses crt; var a,b,c,d:integer; e,f:real; x:char; begin clrscr; repeat writeln('zadej svou vahu (kg)'); readln(a); writeln('zadej svou vysku (m)'); readln(f); e:=a/(f*f); writeln('tvuj idex je ',e:8:3); case round(e) of 0..20:writeln('podvaha'); 21..25:writeln('normal'); 26..100:writeln('nadvaha'); end; writeln('pro ukonceni zmackni ; nebo pokracuj ENTER'); x:=readkey; until x=';' end.
(*rodne cislo*) program rodne; uses crt,dos; var r,m,d,a:integer; rok,mesic,den,dent:word; x:char; begin clrscr; repeat GetDate(rok,mesic,den,dent); writeln('napis prvni 2 cisla z rodneho cisla'); readln(r); writeln('napis druhe 2 cisla z rodneho cisla'); readln(m); writeln('napis treti 2 cisla z rodneho cisla'); readln(d); case m of 1..12:writeln('muz'); 13..62:writeln('zena'); end; if m>13 then m:=m-50; writeln('narodil si se ', d); case m of 1:writeln('leden'); 2:writeln('unor'); 3:writeln('brezen'); 4:writeln('duben'); 5:writeln('kveten'); 6:writeln('cerven'); 7:writeln('cervenec'); 8:writeln('srpen'); 9:writeln('zari'); 10:writeln('rijen'); 11:writeln('listopad'); 12:writeln('prosinec'); end; writeln('v roce 19',r); if r<88 then writeln('jsi plnolety') else writeln('nejsi plnolety'); if (den=d)and(mesic=m) then writeln('happy birthday'); writeln('pro pokracovani stiskni ENTER, pro konec ;'); x:=readkey; until x=';'; end.
(*rodne cislo*) program rodne; uses crt,dos; var r,m,d,a:integer; rok,mesic,den,dent:word; x:char; begin clrscr; repeat GetDate(rok,mesic,den,dent); writeln('napis prvni 2 cisla z rodneho cisla'); readln(r); writeln('napis druhe 2 cisla z rodneho cisla'); readln(m); writeln('napis treti 2 cisla z rodneho cisla'); readln(d); case m of 1..12:writeln('muz'); 13..62:writeln('zena'); end; if m>13 then m:=m-50; writeln('narodil si se ', d); case m of 1:writeln('leden'); 2:writeln('unor'); 3:writeln('brezen'); 4:writeln('duben'); 5:writeln('kveten'); 6:writeln('cerven'); 7:writeln('cervenec'); 8:writeln('srpen'); 9:writeln('zari'); 10:writeln('rijen'); 11:writeln('listopad'); 12:writeln('prosinec'); end; writeln('v roce 19',r); if r<88 then writeln('jsi plnolety') else writeln('nejsi plnolety'); if (den=d)and(mesic=m) then writeln('happy birthday'); case m of 1:if d<=21 then writeln('si vodnar') else writeln('si ryba'); 2:if d<=21 then writeln('si ryba') else writeln('si beran'); 3:if d<=21 then writeln('si beran') else writeln('si byk'); 4:if d<=21 then writeln('si byk') else writeln('si blizenec'); end; writeln('pro pokracovani stiskni ENTER, pro konec ;'); x:=readkey; until x=';'; end.
(*geometricke tvary*) program geometrie; uses crt; var a,b,c:integer; o,s,f:real; x:char; begin clrscr; repeat writeln('pro vypocet kruhu zmackni 1, pro ctverec 2, pro obdelnik 3'); readln(c); case c of 1:begin writeln('zadej polomer'); readln(a); o:=(2*3.14)*a; s:=3.14*(a*a); end; 2:begin writeln('zadej stranu a'); readln(a); o:=4*a; s:=a*a; end; 3:begin writeln('zadej stranu a'); readln(a); writeln('zadej stranu b'); readln(b); o:=2*(a+b); s:=a*b; end; end; writeln('obvod je ', o:8:3); writeln('obsah je ', s:8:3); writeln('pro pokracovani stiskni ENTER, pro konec ;'); x:=readkey; until x=';'; end.
(*priklad 27*) program dvacetsedm; uses crt; var n,i:integer; begin clrscr; readln(n); i:=0; while i<n do begin i:=i+1; writeln(i); end; readln; end.
(*priklad 27 tretim cyklem*) program dvacetsedm; uses crt; var n,i:integer; begin clrscr; readln(n); for i:=1 to n do writeln(i); readln; end.
(*cykly*) program cykly; uses crt; var n,i,a:integer; begin clrscr; writeln('napis libovolne cislo'); readln(n); i:=0; a:=0; repeat i:=i+1; if i=n then write(i) else write(i,'+'); a:=a+i; until i=n; writeln('=',a); readln; end.
(*vytiskni prvni n livhych cisel*) program vytiskovac; uses crt; var n,i:integer; a,x:char; begin clrscr; writeln('napis libovolne cislo'); readln(n); i:=1; repeat i:=i+2; writeln(i); until i>n; readln; end.
(*kladne cislo*) program kladnecislo; uses crt; var i,n,p:integer; o:real; begin clrscr; randomize; textcolor(random(15+1)); repeat writeln('napis cislo'); readln(n); p:=p+1; if n<=0 then writeln('ses nula zadej kladne cislo'); until n>0; writeln('pocet je pokusu', p); o:=sqrt(n); writeln('odmocnina je',o:8:3); readln; end.
(*deset nasobku cisla*) program nasobky; uses crt; var i,n:integer; begin clrscr; writeln('napis cislo'); readln(n); for i:=1 to 10 do write(i,'*',n,'=',i*n,' '); readln; end.
(*nevim*) program nevim; uses crt; var a:integer; begin clrscr; randomize; a:=0; repeat textcolor(random(15+1)); writeln('AHOJ'); a:=a+1; until a=16; readln; end.
(*udela neaky moznosti bez operatoru*) program bezoperatoru; uses crt; var a,b,c,i:integer; begin clrscr; writeln('zadej cislo a'); readln(a); writeln('zadej cislo b'); readln(b); c:=0; i:=0; repeat c:=a+c; i:=i+1; if i=b then write(a) else write(a,'+'); until i=b; writeln('=',c); readln; end.
(*33ka*) program prg; uses crt; var a,b,n,pocet,i:integer; begin clrscr; readln(n); pocet:=0; for i:=1 to n do begin if (n mod i)=0 then begin write(i:4); pocet:=pocet+1; end; end; textcolor(2); writeln(' pocet delitelu je', pocet); readln; end.
(*34 novym zpusobem*) program upgrade34; uses crt; var i,n:integer; begin clrscr; readln(n); for i:=1 to n do writeln(i); readln; end.
(*33ka*) program prg; uses crt; var a,b,n,pocet,i:integer; begin clrscr; readln(n); pocet:=0; for i:=1 to n do begin if (n mod i)=0 then begin write(i:4); pocet:=pocet+1; end; end; textcolor(2); writeln(' pocet delitelu je', pocet); textcolor(9); if pocet<=2 then writeln('prvocislo'); readln; end.
dalsi ulohy:
(*napsat prvnich deset nesobku cosla7*)
var c:integer;
begin c:=0;
repeat c:=c+7;
writeln (c);
until c=70;
readln;
end.
(*38 je dano n cisel,vytisknete primer n=3: 1,2,3 prumer soucet/pocet 6/3=2.maximu, je 3*)
program cisla;
var n, cislo, soucet, i:integer; prumer: real;
begin readln(n);soucet:=0;
for i:=1 to n do
begin readln (cislo);
soucet:=soucet+cislo
end;
prumer:=soucet/n;
writeln ('prumer je:', prumer:0:2);
readln
end.
(*36 je dano n cisel,vytisknete primer n=3: 1,2,3 prumer soucet/pocet 6/3=2.maximu, je 3*)
program cisla;
var n, cislo, max, i:integer; prumer: real;
begin readln(n);max:=0;
for i:=1 to n do
45begin readln (cislo);
if cislo>max then max:=cislo
end;
writeln ('max je:', max);
readln
end.
(*48*)
program uloha48;
uses crt,dos;
var h,m,s,ss:word;
begin
repeat clrscr;
delay(1000);
gettime (h,m,s,ss);
writeln (h,':',m,':',s);
until keypressed;
end.
(*10cisel (10-50)*)
program nasobky;
uses crt;
var c,i:integer;
begin clrscr;
randomize;
for i:=1 to 10 do
begin c:=random(41)+10 ;
writeln(c);
if (c mod 2)=0 then writeln('sude') else
end;
readkey;
end.
(*48*)
program uloha48;
uses crt,dos;
var h,m,s,ss:word;
begin
repeat clrscr;
delay(1000);
gettime (h,m,s,ss);
writeln (h,':',m,':',s);
until keypressed;
end.
(*vytisknete prvnich 10 nasobku cisla n a soucet techto nasobku*)
program nasobky;
uses crt;
var n,i,s:integer;
begin clrscr;
writeln ('zadejte cislo');
readln(n);
for i:=1 to 10 do
begin
writeln(i*n); s:=s+i*n;
end;
writeln ('soucet je',s);
readln;
end.
(*odecitani od 100 n*)
program odecitani;
uses crt;
var n,p:integer;
begin clrscr;
p:=100;
repeat writeln (p);
p:=p-n;
until p<=0;
readkey;
end.
program pade;
uses crt;
var a:integer;
ch: char;
begin
repeat
writeln ('stiskni nekterou klavesu');
ch:=readkey;
case ch of
'a'..'z':writeln ('male pismeno');
'0'..'9':writeln ('cislice');
'A'..'Z':writeln ('velke pismeno');
#27:writeln('ESC');
#13:writeln('ENTER');
#0:begin ch:=readkey;
if ch = #72 then writeln ('sipka nahoru');
if ch = #80 then writeln ('sipka dolu');
if ch = #77 then writeln ('sipka doprava');
if ch = #75 then writeln ('sipka doleva');
end;
end;
until ch=#27;
end.
(*50*)
program pade;
uses crt;
var a: integer;
ch: char;
begin clrscr;
repeat
ch:=readkey;
textcolor(10);
writeln('program ukoncis kl.zkratkou');
textcolor(8);
writeln(ord(ch));
until ord(ch)=1;
end.
(*53 malovani*)
program malovani;
uses crt;
var x,y:integer;
ch:char;
begin textbackground(9); clrscr; x:=40; y:=25;
repeat gotoxy(x,y);
textcolor(10);
textbackground(1);
writeln('*');
ch:=readkey;
if ch=#0 then ch:=readkey;
case ch of
#72:y:=y-1;
#80:y:=y+1;
#77:x:=x+1;
#75:x:=x-1;
end;
until ch=#27
end.
Komentáře
Přehled komentářů
In Washington DC, thanks to Initiative 71, adults 21+ are allowed to:
Empty the pen. Remove the ink chamber and the closed cap at the end of the pen. Do not throw away the nib (or the cone-shaped tip of the pen) as it will serve as the bowl. Attach the bowl. Attach the smaller end of the nib to one end of the hollow tube. Begin smoking. Pack a small amount of cannabis onto the cone. Light the herbs and then inhale from the other end of the pen.
There are two types of drug test you could face. The first is an unsupervised drug test. This is the most usual, and the easiest to pass. If it’s unsupervised, then submitting a sample of fake urine is easy.
https://deborahweed.com/full-spectrum-cbd-wax/
https://deborahweed.com/prestige-cbd/
https://deborahweed.com/cbd-arousal-oil/
Blackberry Crack is an automatic flowering ruderalis/sativa variety from Sterquiliniis and can be cultivated indoors where the female, autoflowering plants need В±63 days from the seedling to the harvest. Sterquiliniis' Blackberry Crack is a THC dominant variety and is/was only available as feminized seeds. CBL spokeswoman Stacey Keating said that Whole Foods Market will be "a great addition" to the shopping center just down Gunbarrel from Hamilton Place mall and complement the recently remodeled Target and Kohl's.
Best forex scalping system
(Forexunuby, 16. 3. 2021 2:13)Տեխնիկական վերլուծություն Forex. https://am.forex-trading-is.com
cannabis oil illinois
(RubenDum, 15. 3. 2021 11:41)
COST: $10 and includes pizza, drinks, inflatables, silent disco and more!
If do you have an old packet of seeds, and wonder whether they are worth sowing, you can always test their germination yourself.
oval, green, imprinted with 7175, 9 3.
https://weedityourads.com/cbd-nfl/
https://weedityourads.com/3000mg-cbd-gummies/
https://weedityourads.com/is-cannabis-oil-legal-in-nc/
This strain won HighTimes Strongest Strain on Earth list for 2013. Its high is highly stimulating with its euphoric head high and soothing body stone. Its effects are just soft enough to allow anyone to continue with their day. Only the tops of buds exposed to direct light have any purple left after trimming off all the leaves. Trimming removed almost all of the purple coloring.
just chill cbd oil ingredients
(CharlesNew, 14. 3. 2021 13:21)
". very informative . plenty of suppliers, good for buying . " Graham Caudle ** Bransdale Way, Macclesfield, Cheshire SK11 8QT.
If you’ve planted your young plant in a large container, try to give only a little bit of water at a time (enough to wet the area around the seedling roots) until the plant is growing vigorously. Once the plant has grown a few sets of leaves, you should start watering cannabis normally so that water drains out the bottom.
Blackberry Crack.
https://weedbiz.org/at-ease-hemp-oil/
https://weedbiz.org/cbd-hemp-oil-amazon/
https://weedbiz.org/does-hemp-oil-make-you-sleepy/
This Auto Frisian Dew plant got a little stunted at first, but still ended up producing beautiful purple buds! 2-8-4 6-4-4 0-3-7.
hemp oil lip balm
(Jasonnal, 14. 3. 2021 1:04)
NOA Botanicals.
“Snow White” premiered to a record-breaking audience at the Carthay Circle Theatre in Los Angeles. According to BoxOffice Mojo, the movie grossed $8.5 million in its initial release in 1938 ($148 million in 2017) and is ranked 10th for highest-grossing films adjusted for inflation.
What is neem?
https://medicalmarijuanachronicles.com/300mg-cbd-oil/
https://medicalmarijuanachronicles.com/cbd-oil-nevada/
https://medicalmarijuanachronicles.com/where-to-buy-cbd-oil-in-wichita-kansas/
People love them because of their cool selling variety of seeds. You can either buy individual seeds or buy a different kind of cannabis seed from different breeders. They have a great mix of seed collection as well. Vitamin Shoppe Plnt Protein Powder Reviews.
бурение частных скважин
(Andreidgd, 12. 3. 2021 14:59)
Ремонт и чистка скважины в Минске и Минской области Если вы заметили, что ваша скважина стала давать меньшее количество воды или же резко снизилось ее качество, не стоит заказывать бурение новой скважины, есть вероятность того, что потребуется стандартный ремонт скважин на воду, в Минске заказать услугу по ремонту скважины можно в компании «БурАвтоГрупп».Причины плохой работы скважины Если вы заметили изменение качества воды в худшую сторону, это могло произойти вследствие того, что износились сальниковые детали, износились обсадные трубы или повредилась затрубная цементация. Кроме того, мог сгнить металлический фильтр, что влечет за собой затягивание мелкого песка. В таких случаях ситуацию может спасти очистка скважины питьевой воды, но определить поломку и спрогнозировать необходимый ремонт можно только после детальной профессиональной диагностики.Среди прочих причин поломки скважины можно назвать наличие разрывов в электронике или же нарушения работы автоматической части, может забиться гидравлическая конструкция или фильтр, поломаться клапан обратного хода или другие элементы водозаборной конструкции.Наиболее опасной поломкой можно назвать понижение добываемого объема воды. Причиной такого состояния, скорее всего, может быть нарушение целостности фильтра или его забивка, заиливание и даже работа рядом расположенной новой скважины, которая забирает на себя воду.Услуги по ремонту скважин в Минске — перечень и цены Что выбрать: капитальный ремонт или бурение новой скважины на воду? Ответить на вопрос могут только специалисты после детальной диагностики. Пользуйтесь услугами профессионалов, опытные специалисты «БурАвтоГрупп» помогут найти оптимальное решение.При капитальном ремонте скважин производятся такие работы:Заменяют обсадные трубы Производится обсадка колонны малого диаметра Цементируется дно скважины, если причиной поломки была разгерметизация Прочистка скважины:Свабирование системы фильтров Скрепкование Производится пневмоимпульс фильтров
Система прочищается с помощью гидравлических ударов Используется вибрационный и звуковой тип прочистки Ремонт насосов скважины Насосное оборудование извлекают из скважины Проверяют целостностьпроводки и работоспособность крыльчатки Если насос подлежит ремонту – его отвозят в сервисный центр Если оборудование не подлежит ремонту – устанавливают новый насос Что выбрать: капитальный ремонт или бурение новой скважины? Ответить на вопрос могут только специалисты после детальной диагностики. Пользуйтесь услугами профессионалов, опытные специалисты «БурАвтоГрупп» помогут найти оптимальное решение. При капитальном ремонте производятся такие работы: Заменяют обсадные трубы Производится обсадка колонны малого диаметра Цементируется дно скважины, если причиной поломки была разгерметизация Прочистка скважины:
Свабирование системы фильтров Скребкование Производится пневмоимпульс фильтров Система прочищается с помощью гидравлических ударов Используется вибрационный и звуковой тип прочистки Ремонт насосов Насосное оборудование извлекают из скважины Проверяют целостность проводки и работоспособность крыльчатки Если насос подлежит ремонту – его отвозят в сервисный центр Если оборудование не подлежит ремонту – устанавливают новый насос Целесообразность проведения ремонта скважины в Минске просчитывается в индивидуальном порядке и зависит от множества факторов. Чтобы получить грамотную консультацию и принять единственно верное решение, стоит обратиться за помощью к профессионалам в бурении и ремонте скважин.
auburn seed
(StevenPag, 11. 3. 2021 18:03)
40% RH 25В°C air temperature Light 45cm from the canopy 1.5l of water per 24 hours.
Rate this:
We hope you not only found this article to be entertaining, but also educational and informative. It is important to remember that the cultivation and consumption of cannabis is the sole responsibility of the cultivator or user, and discretion should always be taken.
https://shubhamseeds.com/candy-og-strain/
https://shubhamseeds.com/how-long-does-it-take-to-grow-a-pot-plant/
https://shubhamseeds.com/mint-chocolate-chip-cookies-strain/
Nutrients. Equipment-wise, this is one of the better fixed gear bicycles for under 500 bucks. It comes with dual brakes, and the dual calipers stop really nicely. I love how tiny and вЂstealthy’ the brake levers look. Despite their small size, you still get an impressive amount of leverage.
купить бетон в Бронницах_betonzavodram_ru2
(JasonquotT, 11. 3. 2021 13:04)купить бетон в Бронницах https://betonzavodram.ru
cough og strain
(Peteragexy, 10. 3. 2021 21:00)
Here you can find all info about L.S.D. from Barneys Farm . If you are searching for information about L.S.D. from Barneys Farm, check out our Basic Infos, Gallery, Degustation, Awards, Strain Reviews, Medicinal Properties, Direct Comparisons, Shop-Finder and Price Comparison, Lineage / Genealogy, Hybrids / Crossbreeds, User Comments, Threads or Videos for this cannabis variety here at this page and follow the links to get even more information - or list all L.S.D. Strains (14) to find a different version. If you have any personal experiences with growing or consuming this cannabis variety, please use the upload links to add them to the database!
Sensible Seeds is listed as "green" at the SeedFinder. This means we absolutely can recommend this seedbank.
A popular choice among doctors and nurses alike Micro flora sperm friendly Fragrance, salt, and alcohol-free PEG And Chorohexidine Gluconate (CHG) free Has great viscosity for better resolution Bacteriostatic Latex-free Dynarex DynaLube Sterile Lubricating Jelly.
https://plants-n-seeds.com/liquid-tight-strain-reliefs/
https://plants-n-seeds.com/triple-double-strain/
https://plants-n-seeds.com/flying-dutchman-strain/
Effect of Grow Lights on THC Production. We Offer the Best Sativa Strains for you to Order Online at our Colorado Cannabis Dispensary.
dream seed
(RashadCoF, 10. 3. 2021 10:33)
Yes, CBD is legal in Mississippi. There is some confusion about this because medical and recreational marijuana remain illegal in the state. However CBD products which have little or no THC can be purchased and used in the state under certain conditions.
Crunchy cereal & extra berries.
Cannabis-infused sports creams claim to offer muscle relief. We spoke to experts to see if they're worth a shot.
https://orgaseeds.com/pinesoul-strain/
https://orgaseeds.com/bc-diesel-strain/
https://orgaseeds.com/critical-kush-strain-review/
Affiches en couleur 120 Fruits Exotiques. Preheat the oven to 350 degrees F. Cream the butter and both sugars until light and fluffy in the bowl of an electric mixer fitted with the paddle attachment. Add the vanilla, then the eggs, 1 at a time, and mix well. Add the cocoa and mix again. Sift together the flour, baking powder, baking soda and salt and add to the chocolate with the mixer on low speed until just combined. Fold in the chopped white chocolate. Drop the dough on a baking sheet lined with parchment paper, using a 1 3/4-inch ice cream scoop or a rounded tablespoon. Dampen your hands and flatten the dough slightly. Bake for exactly 15 minutes (the cookies will seem underdone). Remove from the oven and let cool slightly on the pan, then transfer to a wire rack to cool completely.
golden glue strain
(RobertRegot, 9. 3. 2021 22:39)
If your grow room feels warm or cold, humid or dry, that is a sign that you may want to look into changing the temperature or humidity of your grow area.
Well-Known Member.
According to famous dermatologist, Leslie Baumann while tocopheryl acetate is more stable and has a longer shelf life , it’s also more poorly absorbed by the skin and may not have the same awesome photoprotective effects as pure Vit E.
https://lookatyourcannabis.com/passion-fruit-seeds-for-sale/
https://lookatyourcannabis.com/velvet-hammer-strain/
https://lookatyourcannabis.com/indoor-cannabis-seeds/
Durban Poison is another Sativa-dominant strain. It has African origins but reached the U.S. in the 1970s. This cannabis strain has a THC content of 15 to 25 percent, and it’s usually not recommended for novice users. HOW OFTEN DO YOU NEED TO TRANSPLANT?
Deviation
(Strawberry, 9. 3. 2021 18:58)
When you are searching to something irresistible, monitor this in default
https://site.com/
Шпионские штучки на страже вашей безопасности
(AntonNiz, 9. 3. 2021 3:21)Если вы хотите защитить себя и своих близких от недоброжелателей, криминальных элементов, конкурентов, исключить утечку информации, сохранить имущество в период вашего отсутствия – посетите сайт https://www.spy-sts.com Там вы найдёте массу полезных приборов и хитроумных приспособлений: видеокамеры, подавители диктофонов, прослушивающую аппаратуру, приборы ночного видения и т.п. Причём всё это оборудование является не только надёжным, но и легальным, так как не противоречит российскому законодательству. Заказав интересующий вас гаджет в интернет магазине SPY-STS, вы получите качественную технику по привлекательным ценам с бесплатной доставкой.
ежедневная влажная уборка
(Duglasefz, 8. 3. 2021 12:11)
Приветствую Вас дамы и господа! https://drive.google.com/file/d/14O9w55SwmlE2-tlnmfFQS62GmpBmQNET/view?usp=sharing
Фирма по уборке помещений «LADYCLEAN» более 5 лет оказывает качественные услуги в Минске. Сотрудники компании — опытные профессионалы, готовые осуществить уборку жилых помещений, промышленных площадей, офисов. Наша клининг компания наведет порядок там, где Вы пожелаете. Клининг компания «LADYCLEAN» проводит самый широкий спектр услуг среди тех, которые могут предложить клининговые компании в Минске. Мы привлекаем клиентов не только качеством услуг, но и их доступной стоимостью. Мы работаем на конкурентном рынке, поэтому наша клининговая компания цены делает привлекательными для каждого клиента. Высокий уровень качества услуг достигается тем, что мы используем в работе новые качественные технические приспособления и используем безвредные чистящие средства.
проститутки украины_sexxx_in_ua
(Brianbup, 6. 3. 2021 17:39)проститутки украины https://sexxx.in.ua/index.php?route=ukraina/prostitutki
дверные перегородки
(Ruslanecx, 26. 2. 2021 17:10)
Добрый день господа!
Изготавливаем и устанавливаем любые зеркала под заказ в Минске и области по необходимым вам размерам. Предлагаем вам максимально широкий ассортимент оттенков зеркал, различные формы, технологии обработки и декорирования. С удовольствием беремся за нестандартные и оригинальные индивидуальные проекты.
Более подробная информация размещена https://drive.google.com/file/d/13CAPanRKgpkKCcaHzI0EiaMtWM0saPJO/view?usp=sharing
зеркало в раме на заказ
(Ruslanxsz, 26. 2. 2021 12:48)
Здравствуйте дамы и господа!
Производим на заказ и устанавливаем стеклянные перегородки в квартиру и в офис по индивидуальным размерам. Мы постоянно следим за современными тенденциями и фурнитурой для стеклянных конструкций, и всегда готовы предложить вам различные решения для создания стильного интерьера в любом ценовом диапазоне. Межкомнатные стеклянные перегородки чаще всего служат для зонирования пространства.
Более подробная информация размещена https://drive.google.com/file/d/13CAPanRKgpkKCcaHzI0EiaMtWM0saPJO/view?usp=sharing
Зарабатывай на Avito в 2021 году . Скидка 75% на онлайн-курс!
(Avito, 21. 2. 2021 20:02)
Продвигайте свой бизнес на Авито. Как эффективнее это делать в 2021 году узнайте на онлайн-курсе.
Спешите, сейчас скидка 75%! Зайди по короткой ссылке: https://clck.ru/TPD5D и начни зарабатывать больше!
Как обыграть казино онлайн
(BUAbes, 20. 2. 2021 12:53)
https://casinoboh.com/luchshie-mobilnye-kazino.html
https://casinoboh.com/blog/verite-li-vy-v-legendy-o-kazino.html
https://casinoboh.com/igry/ruletka-taktiki-pravila.html
https://casinoboh.com/blog/pravilnyj-vybor-vyigryshnogo-igrovogo-avtomata-v-onlajn-kazino.html
https://casinoboh.com/forum/nadezhnye-kazino/38-onlajn-kazino-columbus-otzyvy-realnykh-igrokov-forum-rabochee-zerkalo-sajta.html
Груз китай Россия
(WilliamOpise, 18. 2. 2021 19:24)
Доставка из Китая в Россию
Предлагаем вам прямые оптовые поставки грузов из Китая. Вам не нужно посещать страну лично, мы все сделаем за вас!
Представители нашей компании https://chinex.su/ выберут по вашим требованиям и предпочтениям товар, далее доставят его вам под ключ.
Все процедуры по оформлению таможенных документов и непосредственно доставку мы берем на себя.
Наша компания оказывает следующие услуги:
подбираем оптовых поставщиков в Китае;
представляем любые интересы нашего клиента;
проводим все необходимые расчеты, связанные с приобретением грузов и доставкой их в Россию;
оформляем все таможенные документы;
производим доставку до двери покупателя.
Как мы работаем:
Специалисты выберут для вас поставщиков высококачественной сертифицированной продукции. Проанализируют соотношение цены и качества, выберут оптимальный вариант.
Все переговоры с китайскими поставщиками представители компании берут на себя. Оговаривают необходимые условия (цена поставки, сроки выполнения заказа, доставки), контролируют процесс доставки, качество продукции.
Представители запрашивают у поставщиков все необходимые документы, как гарант того, что контрагент надежный, работающий легально.
Перед закупкой товара изучаются все данные о поставщике, при необходимости запрашиваются образцы товаров. После рассмотрения экземпляров, производится заказ на оптовые закупки товара.
Если поставщик работает нелегально, если образцы товара ненадлежащего качества - представитель компании отказывается от сотрудничества с недобросовестным контрагентом, находит другого поставщика.
Расчет с поставщиками ведется согласно международным законам. Вариант расчета выбирается непосредственно клиентом. Оплата оформляется безопасно, с гарантиями доставки качественного груза.
Наши специалисты контролируют процесс прохождения таможни: заполняют необходимые декларации, следят, чтобы груз успешно пересек границу и благополучно отправился в Россию. Уплату различных таможенных сборов и государственных пошлин наша компания берет на себя.
Поставки оптом осуществляются как авиатранспортом, так и морским транспортом.
Преимущества Chinex https://chinex.su/
берем на себя поиск и закупку абсолютно любых грузов, необходимых для вашего бизнеса (оборудование, предметы интерьера, одежда, запчасти и прочее);
работаем как с мелким оптом, так и с крупными партиями оптовых закупок;
имеем собственные складские помещения, как в Китае, так и в Москве;
производим прямые поставки в Россию;
следим за соблюдением всех сроков, прописанных в договоре оптовых поставок грузов;
выбираем для вас только качественный сертифицированный товар;
гарантируем доставку груза в целости и сохранности.
Каждый наш клиент получает индивидуального представителя. Представитель владеет как русским, так и китайским языком. Он без проблем находит для вас надежного поставщика из Китая. Обговаривает все необходимые требования. Контролирует качество груза, соблюдает сроки доставки товара. Заполняет за вас таможенные декларации и прочие документы, оплачивает таможенный сбор. Контролирует доставку по России.
Наша компания гарантирует качественный сервис обслуживания и надежность сделки.
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100
500mg cbd bath bomb
(JeffreyJer, 16. 3. 2021 11:30)