ПОМОГИТЕ. отыскать три естественных числа x,y,z удовлетворяющих условию 15x+20y+30z=270. задачку

ПОМОГИТЕ. отыскать три естественных числа x,y,z удовлетворяющих условию 15x+20y+30z=270. задачу решить с циклом с параметром.

Задать свой вопрос
2 ответа
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 (zlt;gt;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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт