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
uses Crt; const n=50; type Vec=array [1..n] of integer; var A: Vec; i, Sum, Col: integer; begin ClrScr; Randomize; Sum:=0; Col:=0; for i:=1 to n do begin A[i]:=10+random(40); Write(A[i]: 4); if (i mod 10 =0 ) then WriteLn; if (A[i] mod 7 = 1) or (A[i] mod 7 = 2) or (A[i] mod 7 = 5 ) then begin Sum:=Sum+A[i]; Col:=Col+1; end; end; WriteLn; WriteLn (' Sum = ', Sum); WriteLn (' Col = ', Col); ReadLn; 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