Рішення Program vidbir icon

Рішення Program vidbir




НазваРішення Program vidbir
Дата конвертації29.11.2012
Розмір6.17 Kb.
ТипРішення
1. /БАНК КАЗКОВИХ ЗАВДАНЬ/33 богатыря РОЖКИН сАША.doc
2. /БАНК КАЗКОВИХ ЗАВДАНЬ/БУРАТИНО И ТЕЛЕГРАММА АНДРУСЯК НАСТЯ.doc
3. /БАНК КАЗКОВИХ ЗАВДАНЬ/ВАСИЛИСА ЗАМУЖ.doc
4. /БАНК КАЗКОВИХ ЗАВДАНЬ/ЧЕБУРАШКА И КОВРИК.doc
5. /БАНК КАЗКОВИХ ЗАВДАНЬ/белоснежка и гномы БОЖИКОВ КОСТЯ.doc
6. /БАНК КАЗКОВИХ ЗАВДАНЬ/буратино с ключом МАЙОРОВ СТАС.doc
7. /БАНК КАЗКОВИХ ЗАВДАНЬ/гвидон 1 ОЛИЯР СЛАВИК.doc
8. /БАНК КАЗКОВИХ ЗАВДАНЬ/гра в шахи ЛЕБЕДЕВА ЛЕНА.doc
9. /БАНК КАЗКОВИХ ЗАВДАНЬ/золушкины бусы ДИДКОВСКИЙ ЛЁША.doc
10. /БАНК КАЗКОВИХ ЗАВДАНЬ/иван царевич и серый волк ЧУБЧЕНКО ДЕНИС.doc
11. /БАНК КАЗКОВИХ ЗАВДАНЬ/кай и сн королева БИСЕРОВ САША.doc
12. /БАНК КАЗКОВИХ ЗАВДАНЬ/курочка ряба ВИННИЧЕНКО ВИКА.doc
13. /БАНК КАЗКОВИХ ЗАВДАНЬ/мальвина КУЛИУХ ЖЕНЯ.doc
14. /БАНК КАЗКОВИХ ЗАВДАНЬ/омар юсуф БЛАГОДОВ ИЛЬЯ.doc
15. /БАНК КАЗКОВИХ ЗАВДАНЬ/старик хоттабыч и ковёр БЛАГОДОВ ИЛЬЯ.doc
16. /БАНК КАЗКОВИХ ЗАВДАНЬ/царевна несмеяна СИДОРЕНКО ДИМА.doc
17. /БАНК КАЗКОВИХ ЗАВДАНЬ/червона шапочка ХРАМОВ ВЛАД.doc
Рішення Program vidbir
K золотих він прийшов на телеграф і вирішив послати татові Карло телеграму. За введеним текстом телеграми a
N скринь і кожний рік додається ще по m
A i b. Коли Чебурашка запитав у магазині, які розміри квадратних килимів, що були у продажі, то продавець назвав йому ціле число с
Скринька для Білосніжки
Program zamok
Казкова подорож
Рішення Program Vasilina2
Рішення Program namisto
Х хвилин. Визначити, скільки годин і скільки хвилин він їхав. Порівняти, чого виявилося більше – годин чи хвилин? Рішення
A, а Кай за допомогою викреслювання деякої кількості літер з цього слова має отримати слово b
Рішення Program Riaba
Рішення Program kalendar
V км\с ? Рішення алг доля Омара Юсуфа
Program kilim litak
Рішення Program Nesmeiana
Рішення Program vovk



На острові Буяні князь Гвидон для особистої охорони з 33 богатирів вирішив вибрати трьох. Скількома способами він може це зробити?

Рішення

Program vidbir;

var k, i1, i2, i3, i4, i5, fl: longint;

mm:array[1..3]of longint;

begin

clrscr;


for i1:=1 to 33 do

for i2:=1 to 33 do

for i3:=1 to 33 do

begin

mm[1]:=i3;

mm[2]:=i2;

mm[3]:=i1;

fl:=0;

for i4:=1 to 2 do

for i5:=i4+1 to 3 do

if mm[i4]=mm[i5] then fl:=1;

if fl=0 then begin writeln(i3,',',i2,',',i1); inc(k); end;

end;

write(' кількість способів: ', k);

readln;

end.




Схожі:

Рішення Program vidbir iconProgram my first program; var name: string

Рішення Program vidbir iconProgram my prog; uses crt; begin

Рішення Program vidbir iconPhilosophy course program for I year students

Рішення Program vidbir iconWork program ХІV international exhibition

Рішення Program vidbir iconFuture Leaders Exchange Program, Ukraine

Рішення Program vidbir iconProgram of work of the Second Specialized Exhibition “Dental Fair”

Рішення Program vidbir iconOpen Society Foundations Higher Education Support Program

Рішення Program vidbir iconWork program of the second specialized fair-exhibition „children’s world-2011”

Рішення Program vidbir iconДокументи
1. /Program Anichtchenko Serge.txt
2. /Program...

Рішення Program vidbir iconShow program as part II specialized exhibition-fair children's world 2011

Рішення Program vidbir iconДокументи
1. /Program for the sponsors.doc
Додайте кнопку на своєму сайті:
Документи


База даних захищена авторським правом ©te.zavantag.com 2000-2017
При копіюванні матеріалу обов'язкове зазначення активного посилання відкритою для індексації.
звернутися до адміністрації
Документи