Var c, d, rez:integer;
function k9 (a,b:integer):integer;
begin
if a=b then rez:=a+b else rez:=b-a;k9:=rez
end;
begin
write ('Введите a - ');readln(c);
write ('Введите b - ');readln(d);
writeln(k9(c ,d));
<span>end.</span>
Тогда так
2 4 1 3
& это логическое и . | это логическое или.
чем больше &, тем меньше количество страниц. Чем больше |, тем больше страниц
Если считается, что заражются все и начал один, то остается вопрос - а адреса входят в обе стороны или нет то есть
1 кампьютер заразил 10 компов,
Каждый из этих 10 компов отослал письма другим 10, то
<em> </em><em>Будет поражено (10000)</em>
Если x находится в A1, а y - в A2, то =(13*A1^2)/(8-A2)
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</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*'-');
var b:=a.Rows.SelectMany(x->x).ToArray;
var mx:=b.IndexMax; var mn:=b.IndexMin;
Swap(a[mx div n,mx mod n],a[mn div n,mn mod n]);
Writeln('*** Матрица-результат ***'); a.Println(4);
end.
<u>Пример</u>
Количество строк в матрице: 5
Количество столбцов в матрице: 6
*** Исходная матрица [5,6] ***
22 72 95 -18 48 15
-25 72 73 45 -62 75
49 95 -32 20 66 48
55 7 57 -98 -8 94
78 50 -49 73 0 -74
------------------------
*** Матрица-результат ***
22 72 -98 -18 48 15
-25 72 73 45 -62 75
49 95 -32 20 66 48
55 7 57 95 -8 94
78 50 -49 73 0 -74
