1. Предлог.
2. Длина.
3. Осадки.
4. Союз.
5. Слагаемое.
6. Дерево.
7. Вечер.
8. Горячий.
9. Плавание или Хоккей. Скорее всего плавание.⊆
#include <iostream>
using namespace std;
int main()
{
double a,b,c,d;
cout << "Enter 1st-triangle catheti here: " << endl;
cin >> a >> b;
cout << "Enter 2nd-triangle catheti here: " << endl;
cin >> c >> d;
bool podobie = ((a/c == b/d) || (a/d == b/c));
cout << boolalpha;
cout << podobie;
cin.get();
cin.get();
return 0;
}<span>
</span>
Var a: string;
i: integer;
begin
readln(a);
for i := 0 to length(a) do
if (a[i] = 'и') then a[i] := 'е';
writeln(a);
<span>end.
Это на Pascal'е =)</span>
Ответ: acdeb
Решение:
Исходная строка порождает три комбинации:
100 011 01 10 110
100 01 10 110 110
и
10 00110110110.
Третья исключена, потому что ни один символ не начинается с двух нулей.
Во второй два последних символа одинаковы.
Следовательно, первая комбинация верна.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a := MatrRandom(m, n, -99, 99);
a.Println(4);
Writeln(4 * a.ColCount * '-');
var nCol := ReadInteger('В каком столбце ищем?');
var C := ReadInteger('На кратность чему проверить?');
if a.Col(nCol - 1).Any(t -> t mod C = 0) then
Writeln('Есть такие элементы')
else Writeln('Таких элементов нет')
end.