Решить: 1. Автомат получает на вход пятизначное десятичное число. По полученному числу строится новое десятичное число по следующим правилам. 1. Вычисляются два числа – сумма первых трёх цифр и сумма последних трёх цифр. 2. Полученные два числа записываются друг за другом в порядке невозрастания (без разделителей Пример. Исходное число: 15177. Поразрядные суммы: 7, 15. Результат: 157. Определите, сколько из приведённых ниже чисел могут получиться в результате работы автомата. 2828 2512 2518 2524 2425 1825 1225 123 2. Автомат получает на вход четырёхзначное десятичное число. По полученному числу строится новое десятичное число по следующим правилам. 1. Вычисляются два числа – сумма четных цифр и сумма нечетных цифр заданного числа. 2. Полученные два числа записываются друг за другом в порядке неубывания (без разделителей). Пример. Исходное число: 2177. Сумма четных цифр - 2, сумма нечетных цифр - 15. Результат: 215. Определите, сколько из приведённых ниже чисел могут получиться в результате работы автомата. 419 1319 2014 1811 1212 205 322 294 55

1

Объяснение:

большое в это

#include <iostream>

using namespace std;

int main()

{

   int a;

   cin >> a;

   if (a > 0)

   {

       a += 1;

   }

   cout << a;

}

Объяснение:

#include <iostream>  // Библиотека ввода - вывода

using namespace std;  // Пространство имен

int main()

{

   int a;  // Создание целочисленной переменной a

   cin >> a;  // Ввод значения переменной a с клавиатуры

   if (a > 0)  // Если значение переменной а > 0

   {

       a += 1;  // К переменной a прибавляем единицу

   }

   cout << a;  // Выводим значение переменной a

}

Const
  gl = 'аеёиоуыэюя';

var
  s: string;
  f: array[1..10] of boolean;
  i, m: integer;

begin
  Write('Введите фразу: '); Readln(s);
  m := Pos(' ', s);
  if m = 0 then Writeln('В строке отсутствуют пробелы')
  else begin
    for i := 1 to 10 do f[i] := False;
    for i := m + 1 to length(s) do
      case s[i] of
        'А', 'а': f[1] := True;
        'Е', 'е': f[2] := True;
        'Ё', 'ё': f[3] := True;
        'И', 'и': f[4] := True;
        'О', 'о': f[5] := True;
        'У', 'у': f[6] := True;
        'Ы', 'ы': f[7] := True;
        'Э', 'э': f[8] := True;
        'Ю', 'ю': f[9] := True;
        'Я', 'я': f[10] := True
      end;
    Write('Найдены гласные: ');
    for i := 1 to 10 do
      if f[i] then Write(gl[i], ' ');
    Writeln
  end
end.

Тестовое решение:
Введите фразу: Это проверочная фраза "Мама мыла раму". Конец теста.
Найдены гласные: а е о у ы я

В Pascal.ABC можно написать и короче:
const
  gl = 'аеёиоуыэюя';

var
  s: string;
  f: array[1..10] of boolean;
  i, m, p: integer;

begin
  Write('Введите фразу: '); Readln(s);
  m := Pos(' ', s);
  if m = 0 then Writeln('В строке отсутствуют пробелы')
  else begin
    for i := 1 to 10 do f[i] := False;
    s := LowerCase(s); { перекодировать к нижнему регистру }
    for i := m + 1 to length(s) do
    begin
      p := Pos(s[i], gl);
      if p > 0 then f[p] := True
    end;
    Write('Найдены гласные: ');
    for i := 1 to 10 do
      if f[i] then Write(gl[i], ' ');
    Writeln
  end
end.