До конца тебя не понял, что ты имел ввиду под x(квадрат), но если тебе нельзя чтобы x был отрицателен, а y может то:
program hello_world;
var x,y: real;
begin
write("Введи значение x , y - ");
read(x, y);
if x<0 then x:=-x;
x:= x+y;
writeln("Сумма чисел y и x = ", x)
end.
<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
===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.
А) 5 кбайт= 5120 байт= 40960 бит
б) 1,5 кбайт= 1536 байт= 12 288 бит
в) 1 кбайт= 1024байт= 2 ^13 бит
г) 1,5 гбайт= 1536 мбайт=1572854 кбайт
д) 512 кбайт=2 байт=2 бит
Последний вопрос добавлю в комменты попозже
Когда она не подтверждена фактами
Не правдива
Нет очевидцев соьытий
