Урок №11. Вкладені цикли

1. Сьогодні на уроці Урок №11. Вкладені цикли 10-А клас03.02.2014

2. Вкладені цикли початок a b c1 0 09 9 9 A1,b1 К=0 1<=A1<=27 K A=1,9,1 B=0,9,1 кінець C=0,9,1 (A+b+c=a1) I c=b1 A,b,c

3. Знайти кількість тризначних чисел, сума цифр яких дорівнює А1, а само число закінчується цифрою В1. (А1 і В1 вводять з клавіатури). uses crt; var a,b,c,a1,b1,k:integer; begin clrscr; writeln('vvestu a1');readln(a1); writeln('vvestu b1'); readln(b1); k:=0; if (a1>=1) and (a1<=27) then begin for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do if ((a+b+c)=a1) and (c=b1) then begin k:=k+1; writeln(a,b,c)end; end else writeln('no chisel'); writeln('k=',k); end. a b c1 0 09 9 9

4. 30 л соку потрібно розлити в 2 –х і з-х літрові банки. Вивести на екран всі можливі варіанти розливу. Підрахувати їхню кількість. uses crt; var x,y,k:integer; begin clrscr; writeln(‘варіанти розливу 30 л соку по 2 і 3-х літрових банках'); k:=0; for x:=0 to 15 do for y:=0 to 10 do if 2*x+3*y=30 then begin writeln(' 2л= ',x,' 3л=',y); k:=k+1; end; writeln(' kolichestvo k=',k); end.

5. 120 осіб потрібно посадити за 4- та 6 – місні столики. Отримати всі можливі варіанти поєднання столиків. Підрахувати їхню кількість uses crt; var x,y,k:integer; begin clrscr; writeln(' 120 осіб за 4 і 6-х місних столах'); k:=0; for x:=0 to 30 do for y:=0 to 20 do if 4*x+6*y=120 then begin writeln(' 4 -місних= ',x,' 6-місних=',y); k:=k+1; end; writeln(' kolichestvo k=',k); end.

6. Задачі №1. 200л бензину потрібно розлити у банки місткістю 60, 45, 25 л. Отримати всі можливі варіанти розливу. Підрахувати їхню кількість. №2. 600 шт. цегли можна перевозити візками місткістю 60 і 45 цеглин. Отримати всі можливі плани перевезень. Підрахувати їхню кількість. №3. Знайти всі тризначні числа, що дорівнюють сумі кубів своїх цифр. №4. Написати програму пошуку чотиризначного числа, яке при діленні на 133 дає остачу 125, а при діленні на 134 дає в остачі 111. №5. Сума цифр тризначного числа кратна 7, само число також ділиться на 7. Знайти всі такі числа.