begin ClrScr; for g:=0 to 12 do for k:=0 to 12 do for z:=0 to 12 do begin if (g+k+z=12) and (0.5*g+1.5*k+2*z=12) then WriteLn (g,' ',k, ' ', z); end; ReadLn; end.
Вывод: Можно вообще не брать красные или зеленые шары. Если брать шары всех цветов, то ответ у задачи один 7 3 2
// На складе было N ящиков мыла, в течение 10 дней со склада отпускали ежедневно K ящиков мыла. Сколько ящиков мыла осталось на складе?
var n,k: real; begin writeln('Введите количество ящиков мыла завезенных на склад'); readln (n); writeln ('Укажите сколько ящиков мыла ежедневно отпускалось со склада'); readln (k); n:=n-(10*k); If (n<0) then writeln ('Вы ошиблись. На складе не было такого количества мыла') else writeln ('Через 10 дней на складе осталось ',n,' ящиков мыла'); end.
6 6 0
8 0 4
7 3 2
Вот программка на Паскале:
uses Crt;
var g, k, z:integer;
begin
ClrScr;
for g:=0 to 12 do
for k:=0 to 12 do
for z:=0 to 12 do
begin
if (g+k+z=12) and (0.5*g+1.5*k+2*z=12) then
WriteLn (g,' ',k, ' ', z);
end;
ReadLn;
end.
Вывод: Можно вообще не брать красные или зеленые шары.
Если брать шары всех цветов, то ответ у задачи один
7 3 2