<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк (столбцов) в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var (su,sd,sl):=(0,0,0);
for var i:=0 to n-1 do
for var j:=0 to n-1 do
if i<j then su+=a[i,j]
else
if i=j then sd+=a[i,j]
else sl+=a[i,j];
Writeln('Суммы элементов:');
Writeln(' - верхней треугольной матрицы ',su);
Writeln(' - главной диагонали ',sd);
Writeln(' - нижней треугольной матрицы ',sl)
end.
<u>Пример</u>
Количество строк (столбцов) в матрице: 4
*** Исходная матрица ***
-73 -89 4 39
77 -32 23 -45
-29 -70 -88 -40
-83 9 21 -46
----------------
Суммы элементов:
- верхней треугольной матрицы -108
- главной диагонали -239
- нижней треугольной матрицы -75
<u>"Школьный" вариант</u>
const
nn=20; { максимальный размер }
var
a:array[1..nn,1..nn] of integer;
i,j,n:integer;
su,sd,sl:longint;
begin
Write('Количество строк (столбцов) в матрице:');
Readln(n);
Randomize;
Writeln('*** Исходная матрица ***');
su:=0; sd:=0; sl:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(199)-99;
Write(a[i,j]:4);
if i<j then su+=a[i,j]
else
if i=j then sd+=a[i,j]
else sl+=a[i,j]
end;
Writeln
end;
Writeln('Суммыа элементов:');
Writeln(' - верхней треугольной матрицы ',su);
Writeln(' - главной диагонали ',sd);
Writeln(' - нижней треугольной матрицы ',sl)
end.
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cmath>
using std::pow;
using std::sqrt;
double vpisannayaOkryzhnost(double);
double opisannayaOkryzhnost(double);
int main()
{
double perimeter;
cout << "Vvedite perimeter: ";
cin >> perimeter;
cout << "r vpisannoi okruzhnosti = " << vpisannayaOkryzhnost(perimeter) << endl;
cout << "R opisannoi okruzhnosti = " << opisannayaOkryzhnost(perimeter) << endl;
cin.get();
return 0;
}
double vpisannayaOkryzhnost(double perimeter)
{
double a = perimeter / 4;
return (a / 2);
}
double opisannayaOkryzhnost(double perimeter)
{
double a = perimeter / 4;
return (sqrt(2) / 2 * a);
}
На Гэ-паскале можно написать так:
program math;
var perimeter, a: real;
begin
write('Vvedite perimeter: ');
read(perimeter);
a := perimeter / 4;
writeln('r vpisannoi okruzhnosti = ', a / 2:0:2);
writeln('R opisannoi okruzhnosti = ', sqrt(2) / 2 * a:0:2);
readln();
readln();
end.
Var a,b:integer;
begin
Writeln('Введите два числа через пробел');
Read(a,b);
If a<b then write('1') else write('2');
<span>End.</span>
В двоичном алфавите используется только 0 и 1, следовательно мошность алфавита - 2.
Без разницы на каком языке? Тогда держи на js:
for(i=1;i <=40;i++){
if(i%2 == 1){
console.log(i);
}
}
Все языки похожи, поэтому можешь легко перевести. Просто цикл проверяющий все числа от 1 до 40. Если делится на 2 и остаток = 1, то вывести, иначе продолжить цикл
