Cin >> a;
if(a<10)
{
a /= 2 ;
cout << a;
}
else
cout << "Число не верно" ;
var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.
Название по-моему называется: Excel, точно не знаю, если что извените...
Последнее, СОДА
Там в начале 000 - это однозначно С, потом 111 - это О
Потом 10 или 100 - это может быть либо Д, либо Н, но если Н, тогда остается 001 - такого кода нет, значит Д
Тогда остается 01 и это А
<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.