Якого значення набуває Z після виконання фрагмента програми, якщо обрано другий перемикач в групі? X := 5; Y := 6; with (Sender as TRadioButton) doV := StrToInt(copy(Name, 12,1)); if (x>3) and (x<5)Then y:=2*x-12else y:=7-8*x; *

//Microsoft (R) C/C++ Optimizing Compiler Version 19.00.23506 for x64
#include <iostream>
#include <array>
int main()
{
std::array<int, 10> mas = { 1, 5, -4, 9, -6, -2, 7, 8, -5, 0 };
auto it = std::partition(mas.begin(), mas.end(), [](const int& i) { return i < 0; });
std::sort(mas.begin(), it, [](const int& x, const int& y) { return x > y; });
std::sort(it, mas.end(), [](const int& x, const int& y) { return x > y; });
std::copy(mas.begin(), mas.end(), std::ostream_iterator<int>(std::cout, " "));
}

Решение в натуральных числах

*** Текст программы на PascalABC.NET ***

begin
  var (x,y,z):=ReadInteger3('Введите x,y,z:');
  var (a1,a2,a3):=ReadInteger3('Введите максимальные значения t1,t2,t3:');
  var k:=0;
  for var t1:=1 to a1 do
    for var t2:=1 to a2 do
      for var t3:=1 to a3 do
        if x*t1-y*t2-z*t3=0 then k+=1;
  if k=0 then Writeln('Решений нет')
  else
  begin
    Writeln('Найдено решений: ',k);
    if ReadInteger('Выводить решения? (1-да):')=1 then
    for var t1:=1 to a1 do
      for var t2:=1 to a2 do
        for var t3:=1 to a3 do
          if x*t1-y*t2-z*t3=0 then
            Writeln($'{x}x{t1}-{y}x{t2}-{z}x{t3}=0')
  end;
  Writeln('Работа программы завершена')
end.

*** Пример работы с программой ***

Введите x,y,z: 3 5 7
Введите максимальные значения t1,t2,t3: 10 10 10
Найдено решений: 3
Выводить решения? (1-да): 1
3x4-5x1-7x1=0
3x8-5x2-7x2=0
3x9-5x4-7x1=0
Работа программы завершена