Презентація на тему:
Цикли

10-В клас 06.02.2013 Сьогодні на уроці

початок A1,b1 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

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.

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.

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