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ářů
Pascal - Pascal-skola
-
Admin - ":
Детский отдых – это отличный способ привить ребенку самостоятельность, приучить к активности.
Найти интересный, активный отдых для своего чада становится затруднительной задачей для его родных.
Мы предлагаем вам ознакомится с нашей программой для лучшего активного детского отдыха в ДОЛ РИТМ:
- летний оздоровительный лагерь: https://dol-ritm.ru
- лагерь ритм: https://dol-ritm.ru
- купить путевку в лагерь: https://dol-ritm.ru/price.html
- дол ритм: https://dol-ritm.ru
- дол подмосковье: https://dol-ritm.ru
лагерь РИТМ москва
(HelenEphet, 1. 10. 2022 19:01)
Pascal - Pascal-skola
-
Admin - ":
Детский отдых – это лучший способ привить ребенку самостоятельность, приучить к активности.
Найти интересный, активный отдых для своего чада становится трудной задачей для его родителей.
Мы предлагаем вам ознакомится с нашей программой для лучшего активного детского отдыха в ДОЛ РИТМ:
- детский отдых: https://dol-ritm.ru
- детский лагерь осень 2022: https://dol-ritm.ru/news/5-programma-osennej-smeny-2022-god.html
- детский отдых: https://dol-ritm.ru
- дол отдых: https://dol-ritm.ru
- купить путевку в детский лагерь: https://dol-ritm.ru/price.html
meet cold
(RandyViade, 1. 10. 2022 15:00)https://www.daughterofelohim.com/profile/enochambres3801207/profile Казино вулкан 777 играть без региÑтрации беÑплатно https://www.azpaintbrush.com/profile/fecurimao7550340/profile Ðвтомат Ñ Ð½Ð°Ð¿Ð¸Ñ‚ÐºÐ°Ð¼Ð¸ игровой набор https://www.twofiveotourco.com/profile/mollieswaggerty11425175/profile Играть в игровой автомат гном Ñ Ð±Ð¾Ð½ÑƒÑами https://panamaswing.com/profile/emmygugino4119996/profile Ggbet игровые автоматы Ñайт https://www.stockbuzznow.com/profile/kelleycuthbert12151966/profile ÐмулÑтор автомата казино https://www.pikespeakclimbersalliance.org/profile/randychomali6193350/profile Игровые автоматы фараон демо https://roicltd.com/profile/angledeane17212234/profile Играть беÑплатно и без ÑÐºÐ°Ñ‡Ð¸Ð²Ð°Ð½Ð¸Ñ Ð² игровые автоматы беÑплатно
develop negligent
(RandyViade, 30. 9. 2022 0:29)https://www.ecosportsnw.com/profile/roxannebuchheit14072319/profile Игровые автоматы играть беÑплатно онлай https://labsuenoymemoria.com/profile/eusebiaodekirk2504347/profile Казино вулкан +Ñ Ð±Ð¾Ð½ÑƒÑом Ñкачать https://timberlineflowerfarm.com/profile/cindylazewski18277756/profile Казино Ð±Ð¾Ð½ÑƒÑ Ð¿Ñ€Ð¸ региÑтрации без депозита на рубли https://www.vaejc.com/profile/emanuelblizzard13975545/profile Рубим фрукты играть https://www.voicendub.com/profile/thanhauther17155861/profile Обмануть игровые автоматы i https://breapsychiccenter.com/profile/eduardowetenkamp3488485/profile Мегаленд в нижнем тагиле депо цены на автоматы игровые https://www.firetaildesign.com/profile/manualkingsley13313985/profile Сыграть игры Ñ Ð¸Ð³Ñ€Ð¾Ð²Ñ‹Ñ… автоматов беÑплатно
action school
(RandyViade, 29. 9. 2022 14:59)https://www.mortellus.com/profile/julialovingood15959911/profile Сайт pokerdom win https://www.bevmckenziecounsellingservices.com/profile/clementmcgaughey11236712/profile Онлайн играть игру режь фрукты беÑплатно https://khnit.com/profile/torygolumski14458458/profile Ðвтомат пробки онлайн играть https://www.himoardorganics.org/profile/kieraglise4910097/profile Играть игровой автомат Ñкалолаз https://www.hemhealers.com/profile/mailefellon17034274/profile Ðвтоматы играть беÑплатно и без региÑтрации миллион игровые вулкан https://www.chemistrypandit.com/profile/vitomcfall13871056/profile Игровые автоматы онлайн беÑплатно Ñ 2 https://www.laboitearevesproductions.com/profile/dejasherard3582630/profile Игровой автомат диамант трио
discover fall
(RandyViade, 29. 9. 2022 5:14)https://www.vincent-biau.com/profile/fairyklimko11346874/profile Игровые автоматы Ñ ÐµÐ³Ð¸Ð¿ÐµÑ‚Ñкой тематикой https://latelierdesof.com/profile/angelesseleg4022362/profile Играть казино на рубли минимум 1 руб https://klmcoachingservices.com/profile/ramiroee8108359/profile Казино онлайн Ñ Ð²Ð°Ð»ÑŽÑ‚Ð¾Ð¹ wmb https://www.7degreesradio.com/profile/floreneeveland10094948/profile Казино европа игровые автоматы играть беÑплатно онлайн без региÑтрации https://www.camaradesign.co/profile/moisesfitzwater19494493/profile Ð‘Ð¾Ð½ÑƒÑ ÐºÐ¾Ð´Ñ‹ +Ð´Ð»Ñ ÐºÐ°Ð·Ð¸Ð½Ð¾ фортуна https://www.valepertutte.it/profile/christinnieng14355445/profile Игровые автоматы Ñ ÐºÐ¾Ñ€Ð¾Ñ‚ÐºÐ¾Ð¹ https://www.cedup.net/profile/regenastpierrie865922/profile Рулетка Ð´Ð»Ñ Ð¼ÑƒÐ¶Ñ‡Ð¸Ð½ онлайн беÑплатно
bad hospital
(RandyViade, 28. 9. 2022 10:24)https://www.ivarsbygget.com/profile/cherryretana9330120/profile Правила игры в зонк https://asinomasec.com/profile/jasminquercioli4273770/profile Ð’Ñе Ð´Ð»Ñ Ñоздание казино беÑплатно https://lemouvementduvent.com/profile/chundue1575273/profile При запуÑке оперы открываетÑÑ ÐºÐ°Ð·Ð¸Ð½Ð¾ вулкан https://www.amaliapereira.com/profile/gaylenevlashi9178426/profile Игровые автоматы мега джек 12 игр https://jardinalminar.net/profile/gilgurske11893677/profile Ð’ каком интернет казино Ñтартовый 20 https://www.amyboyes.com/profile/dolorismattson1614884/profile Играть в казино без вложений на реальные деньги без региÑтрации https://t2rwest.com/profile/epifaniasiggins19243596/profile Играть в игровые автоматы онлаин беÑплатно
Статьи на сайтах WIKI
(Samantharon, 28. 9. 2022 1:23)
Хороший сайт ;)
Делаю отличное предложение тоже посмотреть нужные сайтики
https://baoly.ru/69 Построение обратных ссылок высокого качества
https://baoly.ru/70 Размещение текстов, заметок, релизов в социальных закладках
https://baoly.ru/71 Создание PBN сайтов на поддоменах Wordpress
https://baoly.ru/edrw Статьи на сайтах WIKI
@good=
research pencil
(RandyViade, 28. 9. 2022 0:57)https://ilonachebaani.com/profile/wadelesiak7859786/profile Игровые автоматы ÑтарберÑÑ‚ https://ceramicsyoga.com/profile/celestinahoefflin1119612/profile Игровые автоматы онлайн беÑплатно корона https://www.varecruitretain.com/profile/wynellkettl3460536/profile Играть раÑÑ‚ÐµÐ½Ð¸Ñ Ð¿Ñ€Ð¾Ñ‚Ð¸Ð² фруктов https://www.quinoareal.org/profile/sharleenmecum18528014/profile Играть в автомат шарики https://www.crystalcoralles.com/profile/venicehillegas19952557/profile Игровой автомат stone https://hudsonvalleyeats.com/profile/julietalukowski15179700/profile Megazal онлайн казино https://www.labhealthcollektive.com/profile/griselpacas16677004/profile Играть автомат Ñ Ð¸Ð³Ñ€ÑƒÑˆÐºÐ°Ð¼Ð¸ без региÑтрации
чернила canon черные
(Marinarbr, 27. 9. 2022 12:53)
Доброго времени суток товарищи!
https://drive.google.com/file/d/1zAyNo7EsOmhmlRWSMBRtfxA4dC07_ffp/view?usp=sharing
Предлагаем Вашему вниманию сервис оргтехники и продажу расходников для дома и офиса.Наша организация «КОПИМЕДИАГРУПП» работает 10 лет на рынке этой продукции в Беларуси.Заправка картриджей.Качественная заправка принтера в Минске выполняется мастерами. Расходники для печатающих аппаратов имеют ограниченный ресурс, и после их отработки приходится покупать новый картридж или заправлять старый. Заправка, ремонт и восстановление картриджей – альтернативное и удобное решение, позволяющее использовать картридж для печати повторно и многократно. Не рекомендуем заправлять картридж в домашних условиях, поскольку выполнить процедуру аккуратно и без повреждений устройства под силу только профессиональным работникам.
«КОПИМЕДИАГРУПП» ? это место, где заправить картридж для принтера вы сможете быстро и недорого. Чтобы оформить заявку на заправку картриджа, свяжитесь с менеджером. После согласования деталей заказа, указания марки принтера и количества картриджей, уточнения места и выбора подходящего времени для проведения работ, мы направим к вам специалиста. Также по телефону определим стоимость заправки картриджа для принтера. Перед выездом на дом или в офис мастер предварительно созвонится с вами, предупредив о приезде.КАК ПРОИСХОДИТ ЗАПРАВКА.Инструкция по заправке картриджа включает несколько важных этапов: разборку, очистку устройства от остатков отработанного материала, смазку и саму заправку. После установки картриджа на место мастер проверяет качество печати. Если при эксплуатации картридж течет, выясняется причина и выполняется восстановление или ремонт устройства.Мы работаем качественно и ответственно, благодаря чему получаем только положительные отзывы о своей работе. Особенности сотрудничества с нами:заправка выполняется в течение 15 минут;у нас приемлемая цена на заправку картриджей;используем качественные расходные материалы, проверенные на совместимость;
предоставляем гарантии на заправку сроком до 6 месяцев (если тонер для заправки картриджей не выработается раньше);выезд во все районы Минска;для постоянных клиентов есть скидки.Оплатить услуги можно наличным или безналичным способами.
Строители есть? Дайте совет по крове
(theballettheatre, 25. 9. 2022 19:44)
Знатоки дате совет как лучше поерыть крышу на пристройке.
Верней даже из чего её лучше сделать. Нюанс есть один - крвша должна быть плоская. Такая у меня уж пристройка сделана.
Сейчас смотрел про кровди из мембраны ПВХ https://theballettheatre.com - тут, вроде как выглядит хорошо и по надежности нормально, и по цене доступно.
Сталкивался ли кто-то из вас с такими кровлями? Какие там скрытыекамни, прошу прояснить для нуба.
naughty south
(DouglasvoX, 24. 9. 2022 13:33)More than this, to buy them you will need a prescription, while.This supplement stands out as the best and leading among all other nutritional supplements available all over the world.Anabolic steroids refer to group molecules that contain synthetic analogs of testosterone as well as the authentic male sex hormone, testosterone.Anabolic pro stack by top legal steroids & muscle stacks. https://colab.research.google.com/drive/11_aQXPS270At6c63TgVR_QJ8zBIdedKb Safest anabolic steroid to take https://colab.research.google.com/drive/1U8KlCCsSpeUV83N1zC5pa3BR461KJ0Lk How many mg of steroids do bodybuilders take https://colab.research.google.com/drive/1qnhoDSBg0Ts8nAYhqL6-wb-Il9WjrLtW Purchase real steroids Illegal Use: Andriol, otherwise known as testosterone undecanoate, is the oral version of testosterone.The researchers gave the men an injection of nandrolone decanoate every week. https://colab.research.google.com/drive/1VeACSjUMPDA87ucR5Upf4FkG-XIw821M Ectomorph training ernährung https://colab.research.google.com/drive/1rG_SL7OjN0wKfMgYlIjgH4K6d4_izy1a Steroid injections and acid reflux https://images.google.dk/url?q=https://colab.research.google.com/drive/1e600ZfgZnPaqg0uCulk5cxBIK_Z0w6XK 1-testosterone before and after https://colab.research.google.com/drive/14CcoHTwzYG9qx79ohmjrM-7ms8SltkFB Corticosteroids side effects https://colab.research.google.com/drive/1Hq1Qtfxmte3hkVOg434Gfd7v7YIUAnC2 Buy steroids in australia online All I can say is the results of a Trenbolone alternative were astounding.And, so far, the operation would be totally legal.Ordering from this source was great… Ordering from this source was great overall and I'm impressed at how polite the customer service team are unlike some other sources that are very rude.Your contact information, including your full name, mailing address, telephone number, and email address; 4.
раскрутка сайта в интернете цена
(Darrensmuct, 21. 9. 2022 22:09)
https://cruizi.spb.ru/oborudovanie/815-2022-09-09-06-36-36
Как запустить коробочный Битрикс24 и не сделать себе больно? Требования к серверу, ПО и безопасности
Внедрение CRM системы на предприятии повысит удовлетворенность клиентов, увеличит количество покупок, снизит затраты компании. Стоимость использования CRM.
warn service
(Williamsaw, 21. 9. 2022 1:43)https://colab.research.google.com/drive/12zkXWZZpgiaoDAOW4iqgDp1nnQmgg18n Steroid doses bodybuilding https://colab.research.google.com/drive/16zMh2TtxGJFz0aoriPr7g_LDr7qYiQWB Is testosterone gel an anabolic steroid https://colab.research.google.com/drive/1lUyhDWTCfiDD5VaHixFWTnOSNdNE8cmX How to cut weight for wrestling in one day https://colab.research.google.com/drive/1b7aK33l8wBebCDOk_HJcxmeZ9SPTtw6m Biotech brutal anadrol 90 caps https://colab.research.google.com/drive/1RllFaGwGZHXUrcKdcEbDaUEhG5TDFQgG Winstrol
матовые перегородки
(Bogdanwmn, 20. 9. 2022 20:30)
Доброго времени суток друзья!
Более подробная информация размещена https://drive.google.com/file/d/1dvAKJyEOOME6UOwkqlaXD570mM28fJWy/view?usp=sharing
Предлагаем Вашему вниманию изделия из стекла для дома и офиса.Наша организация ООО «СТЕКЛОЭЛИТ» работает 10 лет на рынке этой продукции в Беларуси.Офис сегодня – это не пыльная комната в панельном здании, а лицо компании, его визитная карточка. Во многом это определяет интерьер, но также огромное значение имеют дверные конструкции и стеклянные перегородки в офисе. Появившись в качестве перегородок достаточно давно, стеклянные стены использовались чаще всего просто в качестве разделителя помещения, и только недавно они вошли в список интерьерных изюминок. В своих конструкциях мы используем стекло от лучшего мирового производителя листового стекла AGC GLASS EUROPE.
От всей души Вам всех благ!
смм продвижение в социальных
(Danielhal, 20. 9. 2022 8:30)
https://isf-consultant.ru/chto-vam-nuzhno-znat-prezhde-chem-poprobovat-seo-samostoyatelno/
Как сделать сайт на конструкторе Тильда бесплатно
Рейтинг 100 лучших русских интернет СМИ
eleven ill
(Scottbroob, 20. 9. 2022 6:10)https://gunner411.com/community/profile/prokach_casino32183433/ Голдфишка мобильная версия зеркало рабочее https://mahatta.ly/archives/62968 Русское казино игровые автоматы играть бесплатно онлайн https://testoposicionescorreos.es/foro-oposiciones-correos/profile/prokach_casino6981099/ Минусовки группы слот скачать https://www.gianlucatreccarichi.it/collegno-la-tua-citta/profile/prokach_casino27917360/ Сбс игровые автоматы в краснодаре https://shealeeroy.com/groups/%d0%ba%d0%b0%d0%ba-%d0%bf%d0%be%d0%bb%d1%83%d1%87%d0%b8%d1%82%d1%8c-%d0%b2%d1%8b%d0%b8%d0%b3%d1%80%d1%8b%d1%88-%d0%b2-%d0%ba%d0%b0%d0%b7%d0%b8%d0%bd%d0%be-%d0%b2%d1%83%d0%bb%d0%ba%d0%b0%d0%bd/ Как получить выигрыш в казино вулкан
сео копирайтинг цена
(Jamesjip, 19. 9. 2022 22:34)
https://ensonews.info/12540-2/
Скупка авто, автоскупка -выкуп авто в Санкт-Петербурге
Готовая платформа для создания интернет-магазина автозапчастей. Профессиональное решение. Создается за полчаса, работает сразу!
задвижка шибернаЯ ду 600
(Roccoelisk, 19. 9. 2022 21:24)
https://aragoncom.ru/poleznie/gde-ispolzuetsya-svarnaya-setka.html
Труба нержавейка тонкостенная в наличии на складе в Санкт-Петербурге, звоните 8 (812) 983-58-33
? Круг марка стали Ст20 — 7 131 предложение в Санкт-Петербурге. Купить с доставкой от поставщика. — Наличие на складе. — Цены оптом и в розницу. Каталог spb.metalloprokat.ru.
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
детский отдых в подмосковье
(HelenEphet, 2. 10. 2022 7:44)