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

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

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 c

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.

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