Автомат получает на вход четырёхзначное десятичное число. По этому числу строится новое число по следующим правилам.1. Складываются первая и вторая, а также третья и четвёртая цифры.2. Полученные два числа записываются друг за другом в порядке убывания (без разделителейПример. Исходное число: 5487. Суммы: 5+4 = 9; 8+7 = 15. Результат: 159. Определите, сколько из приведённых ниже чисел могут быть получены, как результат работы автомата. 179 188 21 192

395

Объяснение:

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadReal3('Введите три числа:');
  if b.Between(a,c) then (a,b,c):=(2*a,2*b,2*c);
  if (a<0) or (b<0) or (c<0) then (a,b,c):=(Abs(a),Abs(b),Abs(c));
  Writeln('a=',a,', b=',b,', c=',c)
end.

Пример
Введите три числа: 3.6 -5.2 8
a=3.6, b=5.2, c=8

Первый оператор читает с клавиатуры три вещественных числа и помещает их в переменные a,b,c.
Второй оператор проверяет, находится ли второе число (b) между остальными двумя (может и совпадать с одним из них). Если да, то значение каждой переменной удваивается.
Третий оператор проверяет, есть ли среди введенных чисел хоть одно отрицательное. Если есть, значения заменяются их модулями (становятся положительными).
И в конце следует вывод результатов.

#include <iostream>

#include <Windows.h>

using namespace std;

void main()

{

                setlocale(LC_ALL, "Russian");

                float a, b, c;

Start:

                system("CLS");

                cout << "Введите 3 действительных числа:\n";

                cin >> a;

                cin >> b;

                cin >> c;

                if (a>b && a>c)

                               cout << "Вот что получится если удвоить ваши числа: " <<a*2<< b*2<<c*2<<"\n";

                else

                cout << "Заменяю ваши числа обсолютными значениями: " <<abs(a)<<abs(b)<<abs(c)<< "\n";

                Sleep(5000);

 

                goto Start;

}