Решить:
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

👇

Увидеть ответ

Ответ:

емдетей

22.05.2022

Объяснение:

большое в это

4,8(18 оценок)

Открыть все ответы

Ответ:

infernyc

22.05.2022

#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

}

4,4(37 оценок)

Ответ:

huifufjvJf

22.05.2022

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.

4,6(10 оценок)

Это интересно:

Кулинария-и-гостеприимство

03.02.2020

Как использовать вафельницу: подробный гид по приготовлению вафель...

Образование-и-коммуникации

19.12.2022

Методы высушивания цветов: вдохновляющие идеи и лучшие советы...

Стиль-и-уход-за-собой

23.02.2022

Как ухаживать за вьющимися от природы волосами...

Компьютеры-и-электроника