Везде нужно взаимоуважение
Объяснение:
Даже в Интернет, даже в социальной сети людям необходимо уважать друг-друга. Конечно, для особых индивидуумов придумали чёрные списки, однако зачем их использовать, если можно просто вести себя нормально (Я исключаю то, что в чёрный список попадают люди, у которых там "любовь" с тем, кто их заблокировал - тут взаимоуважение не "... С другими показателями..." - все мы люди, не смотря на социальные, физические, умственные Нельзя оскорблять других на пустом месте, ведь в социальной сети мы переписываемся с такими же людьми, как и в реальности. Надеюсь - моя мораль понятна.
#include <iostream>
#include <time.h>
#include <iomanip>
using namespace std;
int main()
{
int i, j, n, m;
double** a;
double p;
setlocale(LC_ALL, "Russian");
cout << "\nN = ";
cin >> n;
cout << "\nM = ";
cin >> m;
a = new double*[n];
for (i = 0; i < n; i++)
a[i] = new double[m];
srand(time(NULL));
for (i = 0; i < n; i++) {
for (j = 0; j < m; j++) {
a[i][j] = (double)rand() / (RAND_MAX + 1) * 10;
cout << setw (5) << fixed << setprecision (2) << a[i][j] << " ";
}
cout << "\n";
}
cout << "\nПроизведения строк:";
for (i = 0; i < n; i++) {
p = 1;
for (j = 0; j < m; j++) {
p *= a[i][j];
}
cout << setw (15) << fixed << setprecision(2) << right << "\n" << p;
}
cout << "\n";
}
1:
program prog;
var i,n,s,a:integer;
var chk:boolean;
begin
chk:=False;
s:=1;
write('Введите количество вводимых чисел: '); readln(n);
for i:=1 to n do
begin
write('Введите ', i, '-е число: '); readln(a);
if i mod 2 = 0 then
begin
s:=s*a;
chk:=True;
end;
end;
if chk = False then s:=0;
write('Произведение чётных членов введённой последовательности равно ', s);
end.
2:
program fib;
var
F1,F2,n,i :Integer;
begin
write('Введите количество чисел Фибоначчи: '); readln(n);
F1:=1;
F2:=1;
For i:=1 to n do
begin
if i>2 then
begin
F1:=F1+F2;
F2:=F1-F2;
end;
write(F1, ' ');
end;
end.