<span>const N=30;
var
a: array [1..N] of integer;
i, j, min, min2, s: integer;
begin
for i:=1 to N do readln(a[i]);
for i:=1 to N do bein
for j:=1 to N do begin
if (a[min]-a[mim2] < a[i]-a[j]) then bein
min1 = i;
min2 = j;
end;
end;
end;
Если я конечно правильно задание понял)</span>
Вариант а) насколько я могу понять, только в задании по-моему формула с ошибкой. Cумма <em>
n</em> первых членов арифметической прогрессии:
тогда, если умножить дробь на
<em>n</em> и сократить на 2, где можно, то и получится вариант а)
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3;
var d:=b*b-4*a*c;
if d<0 then Writeln('Корней нет')
else
if d=0 then begin
var x:=-b/2/a;
Writeln('Корень уравнения x=',x)
end
else begin
var x1:=(-b-Sqrt(d))/2/a;
var x2:=(-b+Sqrt(d))/2/a;
Writeln('Корни уравнения: x1=',x1,', x2=',x2)
end
end.
3кБ=3072б (3*1024)
ответ 3072 байта делим на количество символов12288
равно 0.25 байт
В основном литературные сочинения не большие в размере , смотря какой это тип текста если это сказка она длинная если это стих он обично короткий , вообщем это зависит от типа.
Короткие : стихи , пословицы , загадки.
Средние : биография , краткое описание , небольшие рассказы
Большие : романы , сказки , фантастика ,ну ив таком роде)
