9. В последовательности чисел определить произведение четных чисел, кратных 6. Признак конца ввода ноль. на паскале , решаются две важные оценки)

var

 a: string;

 b: array[1..9]of integer;

 sort: boolean;

 max, k: integer;

begin

 Readln(a);

 for var i := 1 to Length(a) do

   b[i] := strtoint(a[i]);

 sort := false;

 while sort = false do

 begin

   sort := true;

   k += 1;

   for var i := 1 to Length(a)-1 do

   begin

     if a[i] < a[i+1] then

     begin

       sort := false;

       var value2 := a[i];

       a[i] := a[i+1];

       a[i+1] := value2;

     end;

   end;

 end;

 write(a[1]);

end.

Программа написана на PascalABC.net

на free pascal или turbo pascal она может не работать

Введите а: -4

Введите b: 12

! Результат работы а: 8

Введите а: -4

Введите b: 6

! Результат работы б: 22

Введите а: 90

Введите b: 40

! Результат работы в: 70

Объяснение:

С++:

#include <iostream>

using namespace std;

int main()

{

setlocale(LC_ALL, "RUS");

int a, b, c;

//a

cout << "Введите а: ";

cin >> a;

cout << "Введите b: ";

cin >> b;

b = b + a * 2;

if (a > b)

{

 c = a + b;

}

else

{

 c = b - a;

}

cout << "Результат работы а: " << c << endl;

//б

cout << "Введите а: ";

cin >> a;

cout << "Введите b: ";

cin >> b;

a = a - b * 2;

if (a <= b)

{

 c = b - a;

}

else

{

 c = a - b;

}

cout << "Результат работы б: " << c << endl;

//в

cout << "Введите а: ";

cin >> a;

cout << "Введите b: ";

cin >> b;

a = a - b * 3;

if (a>b)

{

 c = a - b;

}

else

{

 c = b - a;

}

cout << "Результат работы в: " << c << endl;

}