ПОМОГИТЕ. найти три натуральных числа x,y,z удовлетворяющих условию 15x+20y+30z=270. задачу решить с циклом с параметром.
ПОМОГИТЕ. найти три натуральных числа x,y,z удовлетворяющих условию 15x+20y+30z=270. задачу решить с циклом с параметром.
Гость
Ответ(ы) на вопрос:
Гость{{15x+20y+30z=270}
var x,y,z, y1,x1:integer;
begin
x1:=270 div 15;
for x:=1 to x1 do
begin
y1:=(270-15*x) div 20;
for y:=1 to y1 do
begin
z:=(270-15*x-20*y) div 30;
if 1(5*x+20*y+30*z=270) and (z<>0) then
writeln(x:5,y:5,z:5,'proverka',15*x+20*y+30*z=270);
end;
end;
end.
ответ
2 3 6proverkaTRUE
2 6 4proverkaTRUE
2 9 2proverkaTRUE
4 3 5proverkaTRUE
4 6 3proverkaTRUE
4 9 1proverkaTRUE
6 3 4proverkaTRUE
6 6 2proverkaTRUE
8 3 3proverkaTRUE
8 6 1proverkaTRUE
10 3 2proverkaTRUE
12 3 1proverkaTRUE
Проверку можно убрать. Используем два цикла для перебора, а z -вычисляем
ГостьРазделим обе части уравнения на 5 и получим 3x+4y+6z=54
var
x,y,z:integer;
begin
for z:=1 to 9 do
for y:=1 to (51-z) div 4 do
for x:=1 to (54-z-y) div 3 do
if 3*x+4*y+6*z=54 then Writeln(x,' ',y,' ',z)
end.
Тестовое решение (тройки коэффициентов x,y,z)
12 3 1
8 6 1
4 9 1
10 3 2
6 6 2
2 9 2
8 3 3
4 6 3
6 3 4
2 6 4
4 3 5
2 3 6
Не нашли ответ?
Похожие вопросы