Ответ:
В
Объяснение:
Число 77088 по 2му условию первое число меньше последнего на 1,
1условие совпадает у всех
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-99,99); a.Println;
var b:=ArrRandom(n,-99,99); b.Println;
a.Zip(b,(x,y)->x*y).Println
end.
<u>Пример</u>
n= 13
-33 -22 -61 -21 24 -40 -30 77 46 19 -60 2 53
-99 27 90 -13 -17 19 76 -85 -18 4 91 -93 -59
3267 -594 -5490 273 -408 -760 -2280 -6545 -828 76 -5460 -186 -3127
===== PascalABC.NET =====
function nF(n: integer) := Range(1, n).Product;
begin
SeqGen(5, i -> nF(i), 1).Sum.Println
end.
1. г)2. а) 3.б)4.в)5.д)6.б,в,д.7.а,б,в,д.8.а-3,б-5,в-1,г-2,д-4. 9. а-,3,б-1,в-5,г-2,д-4
Program asd;
USES crt;
Const d=2.54;
var i: integer;
begin
For i:=10 to 22 do
begin
Writeln(' ',i,' * ',d,' = ',i*d:2:1);
end;
<span>end.</span>