<u>Немецкий ученый Лейбниц</u><span>, развив идею Паскаля, </span><u>создал механический арифмометр</u>, <span>на котором можно было выполнять все четыре арифметические операции с многозначными числами. Позднее арифмометр многократно совершенствовался, </span><u>в России изобретателями П.Л. Чебышевым и В.Т. Однером были также созданы арифмометры.</u>
В C++:
#include <iostream>
#include <ctime>
#include <iomanip>
int main()
{
using namespace std;
//размерность матрицы
const int N = 5;
int matrix[N][N];
srand(time(0));
int i, j;
//как-нибудь заполняем матрицу
for (i = 0; i < N; i++)
for (j = 0; j < N; j++)
matrix[i][j] = rand() % (N * N + 1) - (N * N / 2);
//вывод исходной матрицы на экран
for (i = 0; i < N; i++)
{
for (j = 0; j < N; j++)
cout << setw(4) << matrix[i][j];
cout << endl;
}
//проверка, есть ли вообще числа, чтобы умножать
int p = 0;
for (i = 0; i < N; i++)
for (j = 0; j < N; j++)
if (i > j && i > N - j - 1 && matrix[i][j] < 0)
{
p = 1;
break;
}
//подсчёт требуемого произведения
for (i = 0; i < N; i++)
for (j = 0; j < N; j++)
if (i > j && i > N - j - 1 && matrix[i][j] < 0)
p = p * matrix[i][j];
//нахождение модуля произведения
if (p < 0)
p = -p;
//вывод этого значения на экран
cout << "Multiplication: " << p << endl;
return 0;
}
var
z,x,y:longint;
begin
write ('X = > ');readln(x);
write ('Y = > ');readln(y);
z:=(sqr(x+1)*(x-1))-(sqr(18*x*y));
writeln ('Z = ',z);
readln;
end.
Начало
ввод числа
последняя цифра числа 0?
да нет ->Нельзя
Можно
Конец
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do s+=1/i;
Writeln('S=',s)
end.
<u>Пример</u>
n= 10
S=2.92896825396825