<u>Pascal:</u>
var x,y:real;
begin
write ('X = ');
readln(x);
write ('Y = ');
readln(y);
writeln ('Summa: ',x+y);
writeln ('Srednee: ',(x+y)/2);
readln;
end.
<u>C++:</u>
#include <iostream>
using namespace std;
int main()
{
float x,y;
cout <<"X = ";
cin >>x;
cout <<"Y = ";
cin >>y;
cout <<"Summa: " <<x+y <<endl
<<"Srednee: " <<(x+y)/2 <<endl;
return 0;
}
Ответ:
=ЕСЛИ(И(A1>0;A2>0);A1*A2;ЕСЛИ(ИЛИ(A1<0;A2<0);ABS(A1)*ABS(A2);0))
Объяснение:
Смотри картинки
<span>4 Кбайта=2^12 Байтов=2^15 битов
</span>16 Мбайтов=2^14 Кбайт= 2^24 байтов= 2^27 бита
2 Гбайта= 2^11 Мбайтов= 2^21 Кбайтов= 2^34 Битов
2) <,> или =:
32 байта(256 бит) <> 64 бита
1024 байта(8192 бит) <> 64 бита
Var
a: array [,] of integer;
begin
var n := ReadlnInteger('n = ');
var m := ReadlnInteger('m = ');
var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin
a := new integer[m, n];
for var i := 0 to m-1 do
for var j := 0 to n-1 do
a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
end
else a := MatrixRandom(m, n, 1, 100);
Println(a);
var b := ArrGen(n, x -> 1);
for var i := 0 to m-1 do
for var j := 0 to n-1 do
if j mod 2 = 0 then
b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.