<em>// PascalABC.NET 3.2, сборка 1478 от 10.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>№1</em>
begin
var n:=ReadInteger('n=');
Writeln('S=',n*(n+1) div 2)
end.
<u>Пример</u>
n= 15373
S=118172251
<em>№2</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Количество отрицательных элементов построчно:');
a.Rows.Select(r->r.Where(x->x<0).Count).Println
end.
<u>Пример</u>
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5,8] ***
88 43 64 50 -27 -9 48 55
1 40 -39 -99 -45 -54 17 -77
-33 99 -38 -19 -93 18 -19 -24
17 4 -36 90 98 69 68 35
-35 18 85 54 -74 -69 14 -62
--------------------------------
Количество отрицательных элементов построчно:
2 5 6 1 4
Число 793 в двоичной системе счисления (BIN): 000000000000001100011001.Восьмеричное значение (OCT) для десятичного числа 793: 00001431.Число 793 в шестнадцатеричной системе счисления (HEX): 000319.
Var
x,y : integer;
begin
Writeln('Введите координаты x: ');
Read(x);
Writeln('Введите координаты y: ');
Read(y);
if (x>2) or (x<-2) then
Writeln('Принадлежит') else Writeln('Не принадлежит');
<span>end.</span>
#include <iostream>
using namespace std;
int main() {
int s = 0, i = 20;
while(i < 100) {
s+=i;
i++;
}
cout << s << endl;
}
