А) 39
б)26
в)2
Вот программа на ABC Pascal
var
x,y:real;
begin
Readln(x);
if x<0 then y:=sqr(x)+1 else
if x>= 1 then y:= 4*x-1 else
y:=2*x+1;
Writeln(y);
end.
Ну во-первых килобит обозначается как (кб), а килобайт - как (кБ). Приставка кило - всегда с маленькой буквы. Итак: 24000 килобит делим на 8 и получаем килобайты, то есть ровно 3000 кБ/с
Ответ - первое. Во втором ошибка и подраздел утерян.
Program n1;
var
n, i: integer;
p: real;
begin
randomize;
n:=random(15)+1;
p := 1;
for i := 2 to n do
p := p * i;
writeln(n, '! = ',p);
end.
begin
var (m, n) := ReadInteger2('Число строк и столбцов:');
var a := MatrRandom(m, n, -99, 99);
a.Println(5);
Writeln;
var t := a.ElementsWithIndices.MinBy(p -> p[0]);
a[t[1], t[2]] := a.ElementsByRow.Sum;
a.Println(5)
end.