Const k=10;
type arr=array[1..k] of integer;
procedure p1(var x:arr);
var i:integer;
begin
for i:=1 to k do
begin
x[i]:=random(30)-15;
write(x[i]:3);
end;
writeln;
end;
function f1(var x:arr):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to k do
if x[i]<0 then s:=s+x[i]*x[i];
f1:=s;
end;
var a,b:arr; m,n:integer; x:real;
begin
writeln('a:');
p1(a);
writeln('b:');
p1(b);
m:=f1(a);
n:=f1(b);
writeln('m = ',m,' n = ',n);
x:=m/(n-m);
writeln('x = ',x:6:4);
end.
Пример:
a:
<span>-13 7-11 11 -3 4 13 3 -1 2
b:
8 -2 5 10 9 8 -8 12 7-13
m = 300 n = 237
x = -4.7619</span>
Общее количество равно 3 + 9 + 27 = 39
a,b,c
aa,ab,ac,bb,ba,bc,cc,ca,cb
aaa,aab,aac,aba,abb,abc,aca,acb,acc, ... , cca, ccb,ccc.
<h2>Задание 1</h2>
Иван ⇒ 21 31 11 62
<h3>Ответ</h3>
21 31 11 62
<h2>Задание 2</h2>
32(К) 11(А) 81(З) 11(А) 63(Х) 23(С) 33(Т) 11(А) 62(Н)
<h3>Ответ</h3>
Казахстан
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal('Вводите последовательность',ReadInteger('N=')).Reverse.Println
end.
<u>Пример</u>
N= 10
Вводите последовательность 5 9 3.15 -6.7 0 12 100 35 0.03 1e-20
1E-20 0.03 35 100 12 0 -6.7 3.15 9 5