Question

НАПИШИТЕ КОД В ПАСКАЛЕ. По условию :
докажите или опровергните утверждение о том что уравнение 15x+20y+30z=247 не имеет целых положительных решений то есть не существует натурального числа x y z, обращающих его в верное равенство

Answer 1

program IntegerEquation;

var
x, y, z: integer;
solutionExists: boolean;


begin
solutionExists := false;

for x := 1 to 16 do
for y := 1 to 12 do
for z := 1 to 9 do
if (15*x + 20*y + 30*z = 247) then
begin
solutionExists := true;
writeln('Рішення знайдено: x = ', x, ', y = ', y, ', z = ', z);
end;

if not solutionExists then
writeln('Рішення не існує для уравнення 15x + 20y + 30z = 247.');
end.

5 звезд пожалуйста))