//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b,c):=ReadReal3();
writeln('сумма: ',a+b+c);
write('произведение: ',a*b*c);
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('Длина последовательности:');
ReadSeqInteger('Вводи:', n).SortedDescending.Println
end.
↑ неправильно ответил , правильно будет Б т. к. WORLD WIDE WEB
# include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int n, n_copy, min1, min2, temp;
min1 = 9; min2 = 9;
cout << "Введите число: "; cin >> n;
n_copy = n;
while (n > 0) {
temp = n % 10;
if (temp < min1)
min1 = temp;
n = n / 10;
}
cout << "Первое минимальное = " << min1 << endl;
n = n_copy;
int b = 0;
while (n) {
if (n % 10 != min1) b = b * 10 + n % 10;
n /= 10;
}
while (b) {
n = n * 10 + b % 10;
b /= 10;
}
while (n > 0) {
temp = n % 10;
if (temp < min2)
min2 = temp;
n = n / 10;
}
cout << "Второе минимальное = " << min2 << endl;
int sum = min1 + min2;
if (sum % 2 == 0)
cout << "Сумма двух минимальных цифр " << min1 << "+" << min2 << "=" << sum << " четная." << endl;
else
cout << "Сумма двух минимальных цифр " << min1 << "+" << min2 << "=" << sum << " не четная." << endl;
system("pause");
return 0;
}
стремное задание, но там не дана переменная k, поэтому ответ будет 4.
или 2880.