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>
program raf105;
var
s:string;
x:boolean;
i:integer;
begin
write('Введите слово: ');
readln(s);
s:= lowercase(s);
for i:=2 to length(s) do
if not x
then x:= s[i] = s[i-1];
if x
then writeln('В слове есть две подряд идущие, одинаковые буквы')
else writeln('В слове нет двух подряд идущих, одинаковых букв');
end.
<u><em>Язык PascalABC</em></u>
Здесь форматирование ломается, поэтому кидаю в файле
Вначале надо найти кол-во символов в одном сочинении: k=4*25*40=4000 символов. Далее переведем объем дискеты в биты: 1,44*1024*8=11796,48 бит. Ну и поделить одно на другое:11796,48:4000=2,95 Но на понятно,что на диск поместятся только целые сочинения,а не 0,95,так что ответ:2 сочинения.