//PascalABC.Net 3.1.0.1200
begin
var a := ArrRandomInteger(100, 1, 100).toList;
Println(A);
a := a.Sorted.toList;
a := a.Pairwise().Where(x -> x.Item1 = x.Item2).Select(x -> x.Item1).toList;
a := a.Distinct.toList;
Println(A);
end.
Ответ:
Создается константа nmax, равная 15
Создается переменная a, типа двумерного массива типа integer
Создаются переменные n, i, j, jmax типа byte
Создается переменная buf типа integer
Задается размерность, не больше nmax (то есть 15), и помещается в переменную n
Выводится исходная матрица, через 2 цикла, тк двумерный массив.
Дальше преобразуется матрица
Опять таки в двух циклах.
Выводится на экран и всё.
Компьютерная клавиатура — устройство, позволяющее пользователю вводить информацию в компьютер. Представляет собой набор клавиш, расположенных в определённом порядке
#include <iostream>
using namespace std;
int main()
{<span>
setlocale(0,"");</span><span>
int m,d;</span><span>
cout<<"введите номер месяца ";</span><span>
cin>>m;</span><span>
cout<<endl;</span><span>
cout<<"введите номер дня ";</span><span>
cin>>d;</span><span>
cout<<endl;
</span><span> if ((d==28) || (d==31) || (d==30) )</span><span>
cout<<"следующая дата "<<m+1<<". "<<1<<endl;
</span><span> else
</span><span> cout<<"</span>следующая дата<span> "<<m<<". "<<d+1<<endl;
</span><span> return 0;
</span>}
Function myFunction()
{
var sheet = SpreadsheetApp.getActiveSheet();
for (i = 1; i <= 5; i++)
{
sheet.appendRow([i]);
}
}