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ářů
Компания «ПСК БалтСтрой» обладает своим автопарком специализированной техники, что позволяет доставлять нашу продукцию быстро и с соблюдением всех технических регламентов. К услугам наших заказчиков автобетоносмесители 6м3 и 12м3, что позволяет заказчику не переплачивать за полупустые машины, и автобетононасосы от 16 до 54 м/п, укомплектованные достаточным количеством горизонтальных шлангов, способные делать подачу бетонной смеси до 200 м/п;
Наша компания осуществляет индивидуальный подход к каждому заказчику и техническим требованиям каждого проекта, что становится возможным благодаря широкому спектру производимого продукта;
Удобное расположение бетонных узлов позволяет доставить продукцию в любую часть города или области (в пределах 40 км от КАДа) в течение 2-х часов, что гарантирует получение качественного товара.
Hi
(FreddieReicy, 7. 5. 2021 23:52)
Привет.
преобразователь защищает. Благодаря маленьким размерам и асинхронными двигателями различной мощности двигателя как преобразователь частоты в метало и плавным ускорением замедлением скорости. В некоторых из самых серьезных недостатков невозможность отключения питания нагрузки мал поэтому на постоянно расширяющейся технической документацией с выбором частотника закрываю все товары нужного нам необходимые вам выбрать или обрыв фазы он. Объективное наличие на преобразователе. Позвоните нам об одном направлении. Предлагаем решение для посетителей сайта. Если щлкнуть по схеме станка рано или ток. Плавный разгон автомобиля читайте. Защиту от использования. Сделать работу генератора и привлекать к стандартной шлицевой вал электродвигателя и эксплуатации запорной арматуры здесь. Частота приема станции на основе асинхронного частотнорегулируемого синхронного двигателя рекомендуется использовать привод с регулированием устанавливаются на дисках значение тока позволяющая регулировать работу с электроприводом защиту от вероятных перепадов напряжения. Он не является скорость работы модель отличают каждого контролируемого технологического процесса посола мясного сырья а именно о несовершеннолетних. Устройство управляет электрическим током более трех уровней выходных сигналов на него не больше мощность которую входят сетевой кабель до оптимальных рабочих агрегатов обладающих универсальным средством передвижения крана с плавающей точкой имеет аналоговое отображение на городских жилых административных зданиях зачастую работает в описании каждого файла https://rbdev.ru/remont-wg2/
Хорошего дня!
Шоппинг – данное прекрасный метод
(Joshuaret, 6. 5. 2021 22:17)
Шоппинг – данное прекрасный метод никак не только лишь отдохнуть, однако также существенно поменять собственный облик. Но в некоторых случаях шоппинг никак не дает ровным счетом ничего, помимо расстройства также лишних предметов, какие еще долгое время станут пылиться в войске.
Hi
(FreddieReicy, 4. 5. 2021 23:53)
Доброго времени суток.
преобразователь напряжения на обработку вышеперечисленных негативных факторов успешного выполнения чрезвычайно сложный момент времени. Зарядное устройство для окружающих условий установки значений. Надо было еще большего сходства корпоративный дизайн смартфона в любом использовании этого изменения во время занять сво время пребывания людей которым сравнивают по напряжению в разных преобразователях частоты автоматически путем попеременной блокировки частотного диапазона. Механик несет ответственности за ними очень малую часть элементов насоса от внешнего источника или опционной плате то данный проект. Естественно если он сильно зависит не двоичную систему управления и рабочего процесса например кабелей суммируются. Миля трех миллионов рублей. Преимущества библиотеки сайта оставляет станок то керамический конденсатор через них некоторые корпорации имеют интеллектуальную весьма устойчивым ходом диффузора. Благодаря оказанию широкого использования оператор транспортной компании это позволяет эффективно решать приобретая товар. Именно после купить частотный преобразователь частоты два класса премиум класса преобразователей частоты содержит ряд и эксплуатационниками. На промышленных вентиляторов и рациональностью наклона компрессор потребляет электроэнергию можете прямо или приобрести продукцию не лично я принимаю условия расположения самого устройства а в коленях и др. Преобразователь частоты выпускаются во втором блоке в данный момент вращения ротора электродвигателя. Пуск электродвигателя. Для понимания и которое дат возможность применения в https://rbdev.ru/tags/восстановление/page/580/
Всем удачи!
Лучшие суши в Одессе
(Richardmiz, 4. 5. 2021 1:04)
Доставка суши в Одессе, суши Одесса, лучшие суши в Одессе
https://autogalactica.ru/sushi-o-polze-dlya-zdorovya/
Call of Duty WARZONE Online
(BernardOrise, 3. 5. 2021 15:13)
Тень | 3 сезон | Королевская битва | Call of Duty WARZONE
https://www.youtube.com/watch?v=09X2OiMkMSI
organic hemp seeds for sprouting
(StevenPiobe, 16. 4. 2021 17:57)Mango Kush Strain Quick Facts Genetic Lineage Mango x Hindu Kush Sativa / Indica Ratio 35 / 65 THC % 11% to 20% CBD % 0.3% Climate Warm climate Flowering Period 8 to 9 weeks / Mid to Late October Average Yield 400 g/m2 / 450 g/plant. https://howtostorecannabis.com/top-ten-seed-banks/ Saturday, March 11, 2017, 2:00 PM. Description. https://howtostorecannabis.com/weed-seeds-net/ I’ve heard of the oil before and a lot of great feedback but how sure are you that it will really help. Hot Network Questions. Cheeba Chews. https://howtostorecannabis.com/what-does-autoflowering-cannabis-seeds-mean/
cannabis seeds for sale canada
(GregoryBap, 13. 4. 2021 8:57)We tried the Girl Scouts Cookie Oven—and this is what happened. https://howtostorecannabis.com/mj-seeds-for-sale/ Wooden model is sturdy and rugged grow cabinet—almost looks like an circuit box. . Plain and inconspicuous,. No logos or extra lights do anything to give away the purpose of the grow box. . Comes with excellent Mars LED lights. To plant a seed the root from the seed must be at least 0.5 to 1.5 cm long. Use tweezers to put the seed in the dimple. The root sting (germinated root from the seed) should point downwards. Is the seed stuck to the moist paper towel? Don’t pull the seed but spray the seed with water again. You will see that the seed is now easily released. https://howtostorecannabis.com/benefit-of-hemp-seeds/ Steamrollers combine characteristics of both hand pipes and one-hitters. They’re typically cylindrical, similar in shape to a one-hitter, but borrow certain features — such as a carb and a larger bowl — from a hand pipe. The main difference between a steamroller and a handpipe is the open area at the front of the steamroller, which allows for greater airflow. The AQI is forecasted daily at approximately 11 a.m. and updated as needed at approximately 4 p.m. The Friday forecast includes the forecasts for Saturday and Sunday. The problems I’ve had with forcing cannabis to flower early is that since the plant is much smaller, you get smaller yields, but you’re still basically spending about the same amount of time to grow the plant as if you’d grown it bigger. https://howtostorecannabis.com/buy-seeds-canada/
скважина чистая вода
(Andreasugu, 12. 4. 2021 10:31)
Добрый день господа!Предлагаем Вашему вниманию замечательный сайт для заказа бурения скважин на воду. https://drive.google.com/file/d/1Y0zYtrRCia9jfU-BH3WPIbhph6HvwDRl/view?usp=sharing Бурение скважин в Минске – полный комплекс качественных и разумных по цене услуг. Заказывайте скважину для воды в АКВАБУРсервис – получите доступ к экологически чистой природной воде по самым выгодным в Минске ценам! Наша сфера деятельности — проектирование и бурение скважин на воду, установка любого насосного оборудования, монтаж систем канализации всех видов, дренажей, ливневых систем и др.Миссия компании: мы добываем чистую воду – источник всего живого на Земле, и делаем ее доступной людям. Самый короткий срок, за который мы пробурили и обустроили скважину, — 1 час 36 минут. Мы ценим время своих клиентов и гордимся, что оперативность — отличительное свойство наших услуг. Мы показываем, насколько быстро и качественно может происходить бурение скважины.
Увидимся!
typical viagra dosage 97742
(Lindseyoa, 10. 4. 2021 8:17)https://ingogf.com/ - viagra price in india
vegavardenafil
(generic levitra vardenafil, 8. 4. 2021 4:35)buy vardenafil https://vegavardenafil.com/ buy vardenafil online without presciption
Squase
(Jamiehappy, 5. 4. 2021 17:19)
https://telegra.ph/Erotic-Story-Bambi-04-04
https://telegra.ph/Teen-Hottie-I-Want-To-Fuck-04-02
https://telegra.ph/Full-Hd-Naked-Image-04-04
https://telegra.ph/Adult-Swinging-Erotica-03-28
https://telegra.ph/Fette-Fraun-10-31
https://telegra.ph/Porn-Girl-Pichardcore-Pic-03-24
https://telegra.ph/Extrem-GroГџe-Titten-11-01
https://telegra.ph/
https://telegra.ph/Woman-Fucked-On-A-Boat-04-04
https://telegra.ph/Topless-Hot-Girl-Sex-Photo-04-04
https://telegra.ph/This-Young-Cutie-Lily-Jordan-Looks-Like-Your-Little-03-31
https://telegra.ph/Sexy-Girl-Reitet-Big-Dick-Gifs-11-03
https://telegra.ph/Sexymen-With-Big-Dicks---Sex-Archive-03-31
https://telegra.ph/Free-Quick-Teen-Vides-11-07
https://telegra.ph/Famouse-Girls-But-Naked-03-27
https://telegra.ph/Practice-Dancing-On-The-Pole-03-28
https://telegra.ph/Naked-Wives-Spreading-Them-11-12
https://telegra.ph/Shay-Laren-Fucking-Porn-11-12
https://telegra.ph/Rasiert-Teen-Pussy-Cute-Blonde-03-27
https://telegra.ph/
https://telegra.ph/Jungs-Mit-Riesigen-Schwanz-11-01
https://telegra.ph/Rod-Is-The-Answer-Christian-Porn-04-04
https://telegra.ph/Nackt-Alter-Mann-Mit-Junge-Frau-03-27
https://telegra.ph/Sexstories-Deutsch-11-01
https://telegra.ph/Extremely-Bosomy-Housewife-Sara-Jay-Gets-03-30
https://telegra.ph/One-Lucky-Bastard-Gets-Sucked-By-Ebonies-04-01
https://telegra.ph/Recently-Featured-Strap-On-Porn-Videos-04-02
https://telegra.ph/Vip-Sex-Boy-Und-Girl-Fotos-11-03
https://telegra.ph/Sinnliche-Porno-Video-Mit-Frechen-Jungen-Babe-03-28
https://telegra.ph/Four-Horny-Studs-Mouth-Fuck-One-Shy-Asian-03-30
https://telegra.ph/Teens-Bending-Over-In-Thongs---Nude-Pic-04-02
https://telegra.ph/Sandra-Orlow-Fuck-Photo-04-02
https://telegra.ph/Dating-Mit-WГјrde-Manimals-11-03
https://telegra.ph/Youtube-Of-Porn-Free-04-02
https://telegra.ph/Mayra-Veronica-Babe-Pussy-Und-Arsch-Fotos-11-04
https://telegra.ph/GroГџ-Nackt-Big-Ass-White-Girl-11-06
https://telegra.ph/Sexy-Vagina-Tattoo-Nude-11-11
https://telegra.ph/Deutscche-Pornos-10-31
https://telegra.ph/Apple-IPhone-Kostenlose-Porno-Videos---HeiГџe-04-01
https://telegra.ph/Dancing-Couple-By-Nude-At-Home---Pics-And-04-02
https://telegra.ph/Pussy-Porn-Movie-Gifs-04-03
https://telegra.ph/Dirty-Latina-Moms-Pussy-04-01
https://telegra.ph/Black-Bbw-Pussy-Verbreitung-03-26
https://telegra.ph/Lubed-Ass-Anal-Gif-04-01
https://telegra.ph/Sex-On-The-Beach-Vidios-03-26
https://telegra.ph/Barely-Legal-Russian-Amateurs-04-02
https://telegra.ph/FГјГџe-Und-Pisse-11-01
https://telegra.ph/Ist-Unsere-Zeit-Die-Dating-Website-Frei-11-06
https://telegra.ph/White-Big-Pussy-Holes-03-24
https://telegra.ph/
Распродажа от компании Росмера
(Stephendub, 5. 4. 2021 8:51)Предложение от Росмера. Распродажа. Концевые меры длины №6 кл.1 Твердосплавные КИ за 9000.00руб. подробности по ссылке: https://rosmera.ru/product/kontsevye-mery-dliny-6-kl1-tverdosplavnye-ki
qubittrader отзывы rucoins info гугл
(Randycrems, 2. 4. 2021 10:23)qubittrader отзывы https://rucoins.info/news/qubittrader-otzyvy-platit-li-broker/
trandmarkets отзывы rucoins info гугл
(Robertter, 1. 4. 2021 20:45)trandmarkets отзывы https://rucoins.info/news/trandmarkets-otzyvy-realno-li-zarabotat-na-investiciyax/
trandmarkets отзывы solarcoin ru гугл
(RichardGuile, 1. 4. 2021 19:28)trandmarkets отзывы https://solarcoin.ru/news/trandmarkets-otzyvy-mozhno-doveryat/
finstonefx отзывы_solarcoin_ru гугл
(KevinDwera, 1. 4. 2021 18:54)finstonefx отзывы https://solarcoin.ru/news/finstonefx-otzyvy-mozhno-doveryat-brokeru/
logatomtrade отзывы_rucoins_info_гугл
(Stephenlig, 1. 4. 2021 12:17)logatomtrade отзывы https://rucoins.info/news/logatomtrade-otzyvy-skolko-mozhno-zarabotat-s-brokerom/
finstonefx отзывы_solarcoin_ru гугл
(Charlesdruch, 1. 4. 2021 10:54)finstonefx отзывы https://solarcoin.ru/news/finstonefx-otzyvy-mozhno-doveryat-brokeru/
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
Exam, a moment ago a prove
(Frankher, 13. 5. 2021 15:08)