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ářů
https://bit.ly/3y8bt5A Among your body's major fat-burning hormonal agents REDUCES when you go on a diet regimen?
Research study has shown that this crucial hormonal agent stop by as high as 50% after just 7 days of diet programs!
The worst component is, the longer you attempt to diet regimen, the worse it gets, which is why numerous "serial dieters" continuously struggle to keep the weight off (if they shed it in all ...).
The bright side is we're mosting likely to share the nourishment methods to BOOST your body's natural fat-burning hormonal agents securely as well as naturally! https://bit.ly/3y8bt5A
Woody artifact for the service perquisites of satisfactory way of life
(StronFut, 29. 7. 2021 15:55)
https://gee.su/aNLXE https://gee.su/C5oLJ https://gee.su/VdEnq https://qps.ru/T4uy5 https://gee.su/2zFXM https://clck.ru/WPTYj https://gee.su/0zjfH https://clck.ru/WPe26 https://qps.ru/8SKcj https://clck.ru/WPUnx https://qps.ru/OcNuj https://clck.ru/WQDGE https://gee.su/a1RE9 https://qps.ru/lkb1w https://gee.su/VwF5I https://qps.ru/oISFD https://gee.su/aFT1v https://qps.ru/gqWxN https://gee.su/0Rplt https://clck.ru/WPcRf
https://gee.su/qN1Dl https://gee.su/hOI6C https://gee.su/7UMb8 https://clck.ru/WPcH7 https://gee.su/xPRjs https://gee.su/QV1yC https://cutt.us/YEapz https://cutt.us/bfJTt https://clck.ru/WPRun https://gee.su/EKTkp https://qps.ru/1IYjK https://qps.ru/Ui6je https://gee.su/4deTX https://gee.su/oj3qR https://gee.su/H5Nlx https://clck.ru/WPX7G https://qps.ru/g6eMU https://qps.ru/xLiWF https://gee.su/Ix8m9 https://qps.ru/K7w6x
https://qps.ru/nHisS https://gee.su/Zmd0i https://qps.ru/UFJNq https://clck.ru/WQNPi https://qps.ru/nWjDQ https://gee.su/60ofO https://gee.su/2QVRL https://clck.ru/WPVRU https://cutt.us/nrYJN https://gee.su/FHmDu https://qps.ru/vc24G https://gee.su/dor07 https://clck.ru/WPXQd https://gee.su/pGnHU https://gee.su/ONmbh https://qps.ru/xKD2G https://qps.ru/Rfi6D https://clck.ru/WPQt4 https://qps.ru/p4VDR https://qps.ru/OAngy
Discover How The Foods You're Consuming Everyday Are Making Your Fat Cells SICK
(Jesseicope, 29. 7. 2021 9:11)
https://bit.ly/3y8bt5A One of your body's major fat-burning hormonal agents REDUCES when you go on a diet plan?
Research study has actually revealed that this crucial hormone visit as high as 50% after just 7 days of dieting!
The worst component is, the longer you try to diet regimen, the even worse it obtains, which is why numerous "serial dieters" frequently battle to keep the weight off (if they shed it at all ...).
The great information is we're mosting likely to share the nutrition methods to BOOST your body's natural fat-burning hormonal agents safely and also normally! https://bit.ly/3y8bt5A
friends, movies, fashion, actors, trends, social
(JasonGuize, 29. 7. 2021 4:59)39 yr old Early Youth (Pre-Primary School) Teacher Amado from Aldergrove, really loves r/c boats, and dolls. Has toured ever since childhood and has visited many places, such as The Sundarbans
Tardy artifact a substitute alternatively of well-behaved quickly
(StronFut, 28. 7. 2021 20:25)
https://qps.ru/VkadW https://gee.su/1FKt7 https://qps.ru/Xt6mV https://gee.su/DVQmj https://gee.su/WB2Hf https://clck.ru/WPWFV https://qps.ru/4wrQU https://qps.ru/C3Nya https://qps.ru/uW3yg https://gee.su/wiocK https://gee.su/nVa7m https://clck.ru/WPRP8 https://cutt.us/ygvFK https://qps.ru/5SiX4 https://gee.su/35de0 https://qps.ru/yStIj https://gee.su/9jmS3 https://gee.su/Ii8HD https://qps.ru/lkF3v https://gee.su/EXzQ3
https://gee.su/ego3G https://gee.su/VzIRX https://clck.ru/WPQJe https://gee.su/p6obA https://gee.su/RDCIK https://qps.ru/5FZCD https://qps.ru/KBtsc https://gee.su/Vzc0w https://qps.ru/mfbuA https://clck.ru/WQ57s https://qps.ru/ofdNA https://gee.su/qp0JB https://gee.su/1MAf9 https://qps.ru/F2D8e https://qps.ru/By6t3 https://gee.su/3ZC2n https://gee.su/KFnIw https://clck.ru/WPcyy https://gee.su/yJ7ku https://clck.ru/WPWqD
https://qps.ru/mwzfM https://gee.su/Bm3ZR https://gee.su/zj7AF https://qps.ru/DOeRW https://clck.ru/WPRfv https://gee.su/fvEMp https://gee.su/GLWch https://gee.su/hoMv1 https://cutt.us/bnTKH https://qps.ru/PKfu1 https://clck.ru/WPn93 https://clck.ru/WQDtN https://gee.su/w6kcu https://clck.ru/WPnYN https://gee.su/LqGm6 https://qps.ru/JzHKq https://gee.su/GBrpE https://gee.su/24oxd https://qps.ru/lUvaH https://clck.ru/WPbvb
Larryhaite
(Larryhaite, 28. 7. 2021 2:21)
Hmm it looks like your site ate my first comment (it was extremely long) so I guess I'll just sum it up what I had written and say, I'm thoroughly enjoying your blog. I too am an aspiring blog writer but I'm still new to everything. Do you have any recommendations for rookie blog writers? I'd genuinely appreciate it.
Добрый вечер
(MASSINGILL0476, 26. 7. 2021 7:25)
Доброго дня!
Современные дистилляторы для дома отличаются небольшими размерами лаконичным дизайном бесшумностью и удобством использования. В тех практиках где в качестве основания для конкурсного отбора используется данный механизм он как правило комбинируется с приведенными выше механизмами оценки и отбора проектов. Упрощенная версия монолитной плиты. Если хорошенько погуглить то можно найти очень большое количество раскрученных и не очень подобных сайтов. Если от сети отключить то потом комп не запускаца. Подробнее об этой теме самый полезный вебсайт по ссылке https://capsnab.ru/ .
На рабочем месте необходимо вывесить инструкции по эксплуатации компрессорной установки технике безопасности и противопожарной профилактике. Развернуть панель тыльной стороной к себе. Постарайтесь проработать его как можно лучше чтобы при решении подобных вопросов у вас не больше не возникало проблем. При сдаче приемке зданий сооружений и строительных конструкций под монтаж должна одновременнопередаваться исполнительная схема расположения фундаментных болтов закладных и других деталей крепления оборудования и трубопроводов. Данные характеристики дают владельцу возможность не волноваться о безопасности даже в том случае если прибор оказался невыключенным при долгом отсутствии.
Удачи всем!
ремень поликлиновой минск
(Donaldipc, 24. 7. 2021 20:12)
Приветствую Вас товарищи
Обустройство скважины с пластиковым кессоном Пластиковый кессон – самое оптимальное решение только что обустроенной скважины. Помимо того что, он отлично защищает Вашу скважину, обеспечивает ей необходимую герметичность. Пластик, как известно, не подвержен коррозии. К тому же, ни в каком дополнительном обслуживании пластиковый кессон не нуждается. В результате Вы имеете чистую питьевую воду в доме и на своем участке, используя для полива огорода. И пользоваться пластиковой конструкцией Вы можете в течение 50 лет, не опасаясь за работу Вашей скважины.
Монтаж пластикового кессона в только что обустроенную скважину состоит из этапов:
Вокруг обсадной трубы выкапывают котлован с запасом на 20-30 см больше диаметра пластикового кессона. Выравнивают дно.
Опускают кессон отверстием на обсадную трубу. Фиксируют трубу к корпусу кессона. Точность и аккуратность установки напрямую влияет на качество пользования и срок службы кессона.
К кессону через боковые отверстия в его стенке подсоединяют трубы водопровода и вывода на внешний поливочный кран, подсоединяется питающий кабель, всё аккуратно закрепляется крепежными болтами.
Обсадная труба должна быть обрезана до нужной высоты с учетом кессона. В скважину спускается насос через оголовок. Подключают все трубы, закрепляя болтами. на оголовке.
Устанавливают в кессоне гидроаккумулятор и системы автоматики, розетка со шнуром для подключения электрического кабеля.
Подводят трубы и электрический кабель к дому
Закрывают крышку кессона. Засыпают щели выкопанной землей. Литой пластиковый корпус кессона, а также его установка на глубине 2 м (это ниже промерзания грунта) защищает скважину и оборудование от замерзания в холодное время года.
Монтаж пластикового кессона и обустройство скважины завешено и можно пользоваться скважиной.
Отличия пластикового кессона от бетонного
Критерий
Кессон из бетонных колец
Пластиковый кессон
Особенности установки
При установке бетонных колец необходимо участие спецтехники.
Не требует участия спецтехники.
Срок службы
70-100 лет
Срок службы составляет 50 лет.
Герметичность
Не переносят влагу, необходима дополнительная герметизация.
Абсолютная герметичность
Прочность
Прочная и достаточно устойчивая конструкция. Такие кессоны не нужно укреплять. Под своей тяжестью они не сдвинуться даже под большим напором воды.
Кессоны оборудуют дополнительными ребрами жесткости, что снижает риск деформирования их стенок грунтом. А также дополнительно делают заливку бетоном.
Коррозия
Бетонная поверхность при намокании может стать рассадником грибков и паразитов.
Не подвергаются изменениям в течение 50 лет.
Всплывание
Не нуждаются в дополнительном укреплении.
Низкий показатель. Обычно такие конструкции необходимо «усаживать» на бетонную подушку.
Теплоизоляция
Нуждаются в утеплении.
Пластик – материал с низкой теплопроводностью. Утепляют только по необходимости, на территориях, где суровые зимы.
looking for a sponsor
(LolaKal, 24. 7. 2021 18:32)
<img src="https://i.imgur.com/ANxKI85.jpeg">
Good day! Looking for a sponsor. My profile on the search site:
https://datingforkings.club/ My Name: Alisa Lozavarova
Inclusive Information Around this offering
(ivermectin over the counter, 22. 7. 2021 20:43)
Global Dope Fro this by-product
https://ivermectinst.com generic ivermectin tablets for sale
glutenfri pizzabotten färdig
(glutenfri pizzabotten färdig, 22. 7. 2021 19:59)
constantly i used to read smaller posts that also clear their motive, and that is also happening with this post which I am reading here. glutenfri pizzabotten färdig drywin.sewomabest.com/map4.php
medicamento
(tabletas, 21. 7. 2021 21:35)Del mismo modo, el estrés y las inquietudes relacionadas con la salud mental pueden provocar disfunción eréctil o empeorarla. Siga todas las instrucciones en la etiqueta de su prescripción.
https://vk.com/kupludom24
(BobbyFougs, 18. 7. 2021 1:33)
<a href=https://vk.com/kupludom24>Продам дом Красноярск
This Uncommon Morning Meal Tonic Offered Me Back My Self-confidence
(Justinmup, 15. 7. 2021 8:18)https://bit.ly/3en0Aov Unusual Japanese Tonic From the Healthiest Island worldwide
Quality products and drugs only here https://bit.ly/3rLBBis
(Stots, 11. 7. 2021 16:03)
Quality products and drugs only here
https://bit.ly/3oZOKnO
Happy new year
(BOCKELMAN688, 11. 7. 2021 2:54)
What do you think about this website? https://chastotnyepreobrazovateli.ru/
I think it is nice!!!
strzal pancapanci zdobywaniem digitale paulechange
(HenisCox, 9. 7. 2021 17:41)https://gee.su/auWTC https://cutt.us/FafGY https://cutt.us/eQWHF https://cutt.us/uXfZe - https://clck.ru/VvMSm https://qps.ru/8nQxh https://cutt.us/HWXUl https://clck.ru/VvPch https://gee.su/jS2gp https://clck.ru/VvL8Q - https://clck.ru/Vx6Nv https://clck.ru/VwDLW https://clck.ru/VwSh2 https://cutt.us/YnFYc https://clck.ru/VvcD5 https://qps.ru/EJYfz - https://qps.ru/jGfq5 https://cutt.us/DotEm https://gee.su/kpNHl https://gee.su/jnt20https://clck.ru/Vvpwo https://gee.su/X3hKN https://gee.su/YLAIW https://clck.ru/VwJnB - https://qps.ru/L8Jzh https://gee.su/LUJBq https://clck.ru/VvGk6 https://clck.ru/VvTry https://gee.su/Vrqyw https://clck.ru/Vvkw9 - https://clck.ru/VvDmx https://cutt.us/tAhff https://clck.ru/VvJv6 https://qps.ru/ep534 https://cutt.us/WWyGh https://gee.su/WC2ut - https://gee.su/W1Z9l https://qps.ru/iZAdy https://gee.su/foRHV https://clck.ru/Vw7DD
Как отправить пользователю личное сообщение?
(LerraDug, 9. 7. 2021 12:46)
Привет! Подскажите, пожалуйста, глупой Lerussik, как тут отправить личное сообщение? Очень надо! Спасибо
Hi! Can you please tell stupid Lerussik how to send a private message Thanks
podpis libertarian punto finanzielle harvesting
(HenisCox, 9. 7. 2021 8:41)https://gee.su/GEgam https://gee.su/zfF85 https://gee.su/EveRk https://cutt.us/BqlSK - https://gee.su/PI4T2 https://qps.ru/1W8i2 https://qps.ru/POCtR https://qps.ru/qhpuV https://cutt.us/MhFtI https://cutt.us/ZftLZ - https://cutt.us/SfLTc https://gee.su/dmxa8 https://gee.su/lp4gG https://clck.ru/Vvdyt https://qps.ru/2EpbK https://cutt.us/lcqmD - https://gee.su/0GFlY https://clck.ru/VvPb6 https://qps.ru/g5Gir https://clck.ru/VviGEhttps://cutt.us/buboJ https://clck.ru/VvjBW https://gee.su/XqUR2 https://cutt.us/MIufO - https://clck.ru/VwCRx https://qps.ru/Au5MW https://clck.ru/VvXhC https://gee.su/mpOxu https://cutt.us/Vengk https://cutt.us/GkAkI - https://cutt.us/UtFWk https://clck.ru/Vvy83 https://gee.su/J1BPn https://cutt.us/gtXJq https://gee.su/w82OB https://cutt.us/pvLpv - https://gee.su/dGwub https://clck.ru/VxAyw https://qps.ru/NSmWz https://gee.su/pa4GQ
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
Discover How The Foods You're Eating Every Day Are Making Your Fat Cells SICK
(Jesseicope, 29. 7. 2021 17:25)