вариант 20, 16 задача

Program v20; uses WinCrt; var x,y: real; Begin writeln('введіть x,y'); readln(x,y); if ((x>=-pi/2) and (x<=pi/2)) and ((y>=0) and (y<=abs(cos(2*x)))) then writeln('належить') else writeln('не належить') End.

вариант 18, 16 задание

Program v18;
uses WinCrt;
var N:byte; {N - номер місяця}
Begin
writeln('введіть N');
readln(N);
case N of
1: writeln('січень');
2: writeln('лютий');
3: writeln('березень');
4: writeln('квітень');
5: writeln('травень');
6: writeln('червень');
7: writeln('липень');
8: writeln('серпень');
9: writeln('вересень');
10: writeln('жовтень');
11: writeln('листопад');
12: writeln('грудень');
end
End.

вариант 17, 16 задание

Program v17;
uses WinCrt;
var N:byte; {N- номер кварталу}
Begin
writeln('введіть номер кварталу');
readln(N);
case N of
1: writeln('1 квартал - січень, лютий, березень');
2: writeln('2 квартал - квітень, травень, червень');
3: writeln('3 квартал - липень, серпень, вересень');
4: writeln('1 квартал - жовтень, листопад, грудень');
end
End.

вариант 13, 16 задание

Program v13;
uses WinCrt;
var N:byte; {N - оцінка числом}
Begin
writeln('введіть N');
readln(N);
case N of
1..3: writeln(N,' - початковий рівень');
4..6: writeln(N,' - середній рівень');
7..9: writeln(N,' - достатній рівень');
10..12: writeln(N,' - високий рівень');
end
End.

вариант 14, 16 задание

Program v14;
uses WinCrt;
var N:byte; {N - день тижня}
Begin
writeln('введіть N');
readln(N);
case N of
1: writeln('Понеділок: 1-хімія, 2-фізика, 3-геометрія, 4-алгебра, 5-фізкультура');
2: writeln('Вівторок: 1-спецкурс, 2-алгебра, 3-географія, 4-музика, 5-біологія');
3: writeln('Середа: 1-філософія, 2-правознавство, 3-фізика, 4-фізика, 5-балет');
4: writeln('Четвер: 1-іноземна мова, 2-іноземна мова, 3-література, 4-алгебра, 5-інформатика');
5: writeln('Пятниця: 1-спецкурс, 2 - алгебра, 3 - географія, 4 - музика, 5 - біологія');
6: writeln('Субота: уроків немає');
end
End.

вариант 15, 16 задание

Program v15; uses WinCrt; var N:byte; {N - номер пори року} Begin writeln('введіть N'); readln(N); case N of 1: writeln('Зима: грудень, січень, лютий'); 2: writeln('Весна: березень, квітень, травень'); 3: writeln('Літо: червень, липень, серпень'); 4: writeln('Осінь: вересень, жовтень, листопад'); end End.

ваариант 16, 16 зание

Program v16;
uses WinCrt;
var N:byte; {N - номер місяця}
Begin
writeln('введіть N');
readln(N);
case N of
1..3: writeln('1 квартал');
4..6: writeln('2 квартал');
7..9: writeln('3 квартал');
10..12: writeln('4 квартал');
end
End.

вариант 12, 17 задание

завданні 6 автори збірника припустились помилки: змінна А не може приймати жодного із запропонованих авторами значень. Мабуть, планувалось, що початкове значення змінної А буде 0, тоді правильною буде відповідь 25.

Завдання 17

Мармурова печера
http://ru.wikipedia.org/wiki/Мраморная_пещера
http://www.thisisukraine.org/index.php/ru/what-to-see/pryroda/92-marmurovapechera.html
http://feodosia.2crim.com/index.php?page=exc_caves
http://crimeamap.ru/mramornaya_peshera/
http://www.donuzlav.com/relax/ekskurs3.htm

схема, маршрути
http://www.crimea.edu/friends/onix/mramornaya/
http://lifeglobe.net/blogs/details?id=40
http://pohodushki.org/places/marble-cave-in-the-crimea

тривалість, інші печери
http://www.crimea.edu/crimea/cav/
http://www.crimea.edu/crimea/cav/visiting/index.htm
http://www.crimea.edu/friends/onix/

вариант 12, 16 задание

Program v12; uses WinCrt; var N:char; {N - буква-позначення відмінку} Begin writeln('введіть N'); readln(N); case N of 'н','Н': writeln('хто? що?'); 'р','Р': writeln('кого? чого?'); 'д','Д': writeln('кому? чому?'); 'з','З': writeln('кого? що?'); 'о','О': writeln('ким? чим?'); 'м','М': writeln('на кому? на чому?'); 'к','К': writeln('хто? що?'); end End.

вариант 11, 17 задание

Дім і сад плюс Україна - полуниця
http://domicad.net.ua/index.php?cPath=88&osCsid=7d5a70b77d81ea45e5c901d72d7160e5

Полуниця Королева Елизавета ІІ 10 саджанців (10 саджанців - 169 грн.)
http://domicad.net.ua/product_info.php?cPath=88&products_id=623

Адреса, реквізити Приватбанку
http://privatbank.ua/info/index2.stm?fileName=7u.html

В обчисленнях буде використовуватись формула суми N перших членів геометричної прогресії:
http://uk.wikipedia.org/wiki/Геометрична_прогресія

вариант 11, 16 задание

Program v11; uses WinCrt; var N:char; {N - буква-позначення відмінку} Begin writeln('введіть N'); readln(N); case N of 'н','Н': writeln('який?'); 'р','Р': writeln('якого?'); 'д','Д': writeln('якому?'); 'з','З': writeln('якого?'); 'о','О': writeln('яким?'); 'м','М': writeln('на якому?'); 'к','К': writeln('який'); end End.

вариант 10, 17 зад

система оформлення залізничних квитків (+реєстрація)
http://www.e-kvytok.com.ua/wps/portal

незрозуміло, що хотіли автори завдання, тому нічим більше допомогти не можу

вариант 10, 16зад

Program v10;
uses WinCrt;
var N,x:byte; {N - вік людини, x - остання цифра віку}
Begin
writeln('введіть N');
readln(N);
if (N>=11) and (N<=14) then writeln(N,'років')
else begin
x:=N mod 10; {виділили останню цифру віку}
case x of
1: writeln(N,' рік');
2..4: writeln(N,' роки');
0,5..9: writeln(N,' років');
end;
end
End.

вариант 9, 17

Інструкції по установці і налаштуванню Skype
www.edliny.com/Skype.pdf
http://skypeinfo.ru/installskype.htm
http://talk3.ru/kak-ustanovit-skype-skajp-pod-windows/
http://jobrab.com/Skype.htm
http://www.govo.ru/direction/instr_progs/instruktciya_po_ustanovke_skype.html
http://akak.ru/recipes/1477-kak-ustanovit-programmu-skype

Internet Explorer - закладки
http://www.chaynikam.net/view_lesson.php?id=18
http://www.web-zakladka.ru/index.php?page=stat&ids=ie

Mozilla Firefox - закладки
http://support.mozilla.com/uk/kb/Що%20таке%20закладки#w_aahaailla-lahau-iujkuiji
http://www.web-zakladka.ru/index.php?page=stat&ids=firefox

вариант 9, 16 зад

Program v9;
uses WinCrt;
var a,b,c:real; {a,b,c - довжини сторін}
Begin
writeln('введіть a,b,c');
readln(a,b,c);
if (a*a=b*b+c*c)
then writeln('можна')
else if (b*b=a*a+c*c)
then writeln('можна')
else if (c*c=a*a+b*b)
then writeln('можна')
else writeln('не можна')
End.

вариант 8, 17 зад

утилізація сміття в Україні
http://intkonf.org/romaniv-mv-problema-utilizatsiyi-smittya-v-ukrayini/
http://www.eco-live.com.ua/content/blogs/problema-utilizatsii-elektronnogo-smittya-v-ukraini
http://www.eco-live.com.ua/content/smіttya-i-tverdі-vіdkhodi-v-ukraїnі
http://www.eco-live.com.ua/content/problema-smіttya
http://www.rav.com.ua/ua/useful_know/clauses/sorting/

утилізація сміття в світі
http://ru.wikipedia.org/wiki/Переработка_отходов
http://www.bid.ru/internal.php?id=1470
http://www.bid.ru/internal.php?id=1469
http://www.newsmarket.com.ua/tag/utilizatsiya-smittya/
http://www.ecosystema.ru/07referats/otxodi.htm

схеми, діаграми, таблиці
http://cripo.info/i/35(38).jpg
http://www.bestreferat.ru/referat-201356.html
http://www.tgl.net.ru/wiki/index.php/ID112_Мусорная_цивилизация
http://www.ng.ru/science/2009-09-09/12_ostatok.html
http://www.unii.odessa.ua/FLOT_NEFT/stok_uk.html
http://www.promeco.h1.ru/stati/40.shtml
http://esco-ecosys.narod.ru/2003_10/art52/1.htm
http://tt.pstu.ru/mnp09/mnp09/s6/rozkova.htm

вариант 8, 16 зад

 Program v8;

 var a,b,c,d : real;
Begin
 writeln('ведыть a');
readln(a);
 writeln('ведить b');
readln(b);
writeln('ведите c');
readln(c);
writeln('ведите d');
readln(d);
if ((a=b) and (c=d)) or ((a=c)and(b=d))
or((a=d)and(d=c))
then writeln('иснуэ')
else writeln('не иснуэ')
End.

вариант 7, 17 задание

центри тестування (http://osvita.ua/test/test_office/)
Український центр оцінювання якості освіти (УЦОЯО)
http://www.testportal.gov.ua/
Київський регіональний центр оцінювання якості освіти (КРЦОЯО)
http://www.kievtest.org.ua/
Вінницький регіональний центр оцінювання якості освіти (ВРЦОЯО)
http://www.vintest.org.ua/
Дніпропетровський регіональний центр оцінювання якості освіти (ДпРЦОЯО)
http://www.dneprtest.dp.ua/
Донецький регіональний центр оцінювання якості освіти (ДРЦОЯО)
http://www.test.dn.ua/
Івано-Франківський регіональний центр оцінювання якості освіти (ІФРЦОЯО)
http://www.test.if.ua/
Львівський регіональний центр оцінювання якості освіти (ЛРЦОЯО)
http://www.lvtest.org.ua/
Одеський регіональний центр оцінювання якості освіти (ОРЦОЯО)
http://www.test-center.od.ua/
Сімферопольський регіональний центр оцінювання якості освіти (СРЦОЯО)
http://www.crimeatest.org.ua/
Харківський регіональний центр оцінювання якості освіти (ХРЦОЯО)
http://zno-kharkiv.org.ua/

приклади тестів за минулі роки
http://osvita.ua/test/answers/

сайти для проходження пробного он-лайн тестування (http://osvita.ua/test/zno_online/):
Університет "КРОК" -http://www.krok.edu.ua/index.php?option=com_content&view=article&id=193:zno2010&catid=27
сервіс онлайн тестування "Абітурієнт"
http://www.abiturient.ua/
На сайті Харківського регіонального центру оцінювання якості освіти
http://test.zno-kharkiv.org.ua/
На сайті Львівського регіонального центру оцінювання якості освіти
http://194.44.221.30:8180/index.jsp
СвітОсвіт тестування
http://test.svitosvit.ua/default.aspx?id=root
пробні тести ЗНО
http://ukrainetest.com.ua/

Календар абітурієнта-2011
http://crimeatest.org.ua/index.php?option=com_content&view=article&id=17&Itemid=74

вариан 7, 16 задание

Program v7;
uses WinCrt;
var N,n5: longint; n2:byte; {N- грошова сума, n5- купюри по 5 одиниць , n2- по 2 одиниці}
Begin
writeln('введіть N');
readln(N);
n5:=N div 5;
if odd(N mod 5) then n5:=n5-1;
n2:=(N-5*n5) div 2;
writeln(n5,' по 5, ',n2,' по 2')
End.

вариант 6, 17 задание

trud.ua - дизайнер - по Україні
http://www.trud.ua/rabota-dizainer.html

адреси сайтів для пошуку вакансій по Україні (професія веб-дизайнер)
http://job.ukr.net/vacancy/kw-web_дизайнер/
http://jooble.com.ua/search-vacancy-ukraina/ctg-all/kw-webz20zE4zE8zE7zE0zE9zEDzE5zF0
http://job4it.net/vacancy_search/17/
http://www.e-recruiter.com.ua/?bookmark=vacancy&spec=373

вимоги до веб-дизайнера
http://www.antula.ru/web-designer.htm
http://www.w-sight.com/statya5.shtml

Зарплату та вимоги отримуємо на trud.ua, впорядкувавши вакансії за потрібним критерієм

вариант 6, 16 задание

Program v6;
uses WinCrt;
var x,y: real;
Begin
writeln('введіть x,y');
readln(x,y);
if ((x>=0) and (x<=pi)) and ((y>=0) and (y<=abs(sin(2*x))))
then writeln('належить')
else writeln('не належить')
End.

вариант 5, 17 задание

онляндія безпечна веб країна
http://www.onlandia.org.ua/

Основи безпеки в Інтернеті для підлітків 15 — 18 років
http://www.onlandia.org.ua/pages/kidtips15-18

Правила Інтернет-безпеки і Інтернет-етики для дітей і підлітків (додатково)
http://www.chl.kiev.ua/default.aspx?id=88

вариант 5, 16 задание

Program v5;
uses WinCrt;
const N=20; {замість 20 треба вставити кількість елементів послідовності}
var A:array[1..n] of word; i:byte;
Begin
A[1]:=1;
A[2]:=1;
for i:=3 to N do A[і]:=A[i-1] + A[i-2]; {обчислення членів послідовності}
for i:=1 to N do write(A[і],' '); {вивід на екран}
writeln
End.

вариант 4, задание 17

Київ - супермаркет «Фуршет»
http://www.furshet.ua/ua/

тістечка
http://zakaz.furshet.ua/ru/#!q=%D1%82%D1%96%D1%81%D1%82%D0%B5%D1%87%D0%BA%D0%B0

сік
http://zakaz.furshet.ua/ru/#!q=%D1%81%D1%96%D0%BA

морозиво
http://zakaz.furshet.ua/ru/#!q=%D0%BC%D0%BE%D1%80%D0%BE%D0%B7%D0%B8%D0%B2%D0%BE
---------------------
Київ - «Мегамаркет»
http://megamarket.ua//

тістечка
http://megamarket.ua/catalog/search.php?s=%D1%82%D1%96%D1%81%D1%82%D0%B5%D1%87%D0%BA%D0%B0&g=0

морозиво
http://megamarket.ua/catalog/search.php?s=%D0%BC%D0%BE%D1%80%D0%BE%D0%B7%D0%B8%D0%B2%D0%BE&g=0

сік
http://megamarket.ua/catalog/search.php?s=%D1%81%D1%96%D0%BA&g=0
--------------------------
Київ - Веселий Клоун
http://veselyj-kloun.prom.ua/

дитячий день народження з повітряними кульками
http://veselyj-kloun.prom.ua/p305686-kakoj-prazdnik-bez.html

вариант 4, 16 задание

Program v4;
uses WinCrt;
var x,y: real;
Begin
writeln('введіть x,y');
readln(x,y);
if ((x>=-pi/2) and (x<=pi/2)) and ((y>=0) and (y<=cos(x)))
then writeln('належить')
else writeln('не належить')
End.

вариант3, 17 задание

Завдання 17

Київ результати олімпіад інформатика, результати за 2011 рік
http://kievoi.narod.ru/
http://kievoi.narod.ru/res/2011.xls

Український фізико-математичний ліцей (УФМЛ) Київського національного університету ім. Шевченка (сайт)
http://www.upml.univ.kiev.ua/

Києво-Печерський ліцей №171
http://www.ort.kiev.ua/

вариант 3, 16 задание

Program v3;
uses WinCrt;
var x,y,x0,y0,r1,r2: real;
Begin
writeln('введіть x,y,x0,y0,r1,r2');
readln(x,y,x0,y0,r1,r2);
if (sqr(x-x0)+sqr(y-y0)>=sqr(r1)) and (sqr(x-x0)+sqr(y-y0)<=sqr(r2))
then writeln('належить')
else writeln('не належить')
End.

вариант 2, 17 задание

Завдання 17

Софіївка парк, перелік послуг, фотоальбом
http://www.sofiyivka.org.ua/

план парку, фото
http://uman-sofievka.narod.ru/SofievkaKARTA1i8m.html
http://ukrayina.ru/sofijivka-park/

розклад автобусів з центрального автовокзалу Києва (Умань)
http://uman-sofievka.narod.ru/
http://bus.com.ua/300100/time.html

вариант2, 16 задание

Program v2;
uses WinCrt;
var x,y: real;
Begin
  writeln('введіть x');
  readln(x,);
writeln('введіть y');
  readln(y);
if ((x>=0) and (x<=pi)) and ((y>=0) and (y<=sin(x)))
then writeln('належить')
else writeln('не належить')
End.

вариант 1, 17 задание

Завдання 17

відстані Дніпропетровськ - ...
http://www.hotelsofua.com/ua/information/distance.php?idcity=5

вартість пального на АЗС
http://www.bukovina.biz.ua/news/1587

Nissan Note характеристики
http://www.aurore-nissan.ru/Article_5933.html

вариант 1, 16 задание

program zadacha_16;
var
  x, y,x0, y0, r : integer;

begin
write ('введіть х - ');
read (x);
write ('введіть y - ');
read (y);
write ('введіть х0 - ');
read (x0);
write('введіть y0 - ');
read (y0);
  write ('введіть r - ');
  read(r);
     if  (sqr(x+x0)+sqr(y+y0)<=sqr(r))
then write ('належить') else write ('не на лежить');
end.