<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-35,60);
a.Println(4); Writeln(4*a.ColCount*'-');
a.Rows.Select(row->row.Where(t->t<0).Count).Println
end.
<u>Пример</u>
Количество строк и столбцов в массиве: 5 8
*** Исходный массив [5,8] ***
-21 50 17 -12 -30 10 -9 10
39 1 0 41 -29 26 28 16
50 52 13 36 43 -6 37 5
34 -3 27 13 29 -30 49 36
-17 -12 39 52 -15 -8 27 -9
--------------------------------
4 1 1 2 5
Получается миллион цифоами это так:
1000000)))
Пожалуйста!!!:)
1.
a = 6;
b = -4;
a = a +b*2 = 6+(-4)*2 = 6-8 = -2
a > b ⇒ 6 > -2 ⇒ True; c = b-a = -4-(-2) = -2
Ответ: c=-2
2.1.
sqrt(x*x-7*x+10)/(x*x-8*x+12)
2.2
(power(x+1,3)/(x-1))*15*z*z+18*x*y*y
PascalABC.NET
begin
var flag := true;
var a := readinteger;
var b := readinteger;
for var i := a to b do
if (i * i).ToString.EndsWith(i.ToString) then
begin
write(i, ' ');
flag := false;
end;
if flag then write(-1)
end.