//Код Pascal:
Var
f:text;
a,b,c,D:real;
Begin
Assign(f,'kvur.txt');
Reset(f);
ReadLn(f,a,b,c);
Close(f);
Assign(f,'korni.txt');
Rewrite(f);
D:=b*b-4*a*c;
c:=(-b-Sqrt(D))/(2*a);
a:=(-b+Sqrt(D))/(2*a);
if D >= 0 then
Begin
WriteLn(c,' ',a);
WriteLn(f,c,' ',a)
End
else
Begin
WriteLn('Действительных корней нет.');
WriteLn(f,'Действительных корней нет.')
End;
Close(f);
ReadLn;
End.
Для корректной работы программы файлы должны находиться в одной папке с программой.
ну например
в первом столбике пишешь числа попорядку
во втором столбике пишешь "=A1*A1" и протягиваешь вниз на всю таблицу
в третем пишешь "=A1*A2" и протягиваешь вниз на всю таблицу
в первом столбике у нас получается число
во втором квадрат числа
в третем - куб числа
Рассмотрим возможные варианты кода:
11222 кол. для каждого случая =5!/(2!*3!) =5*4/2=10
11333 всего: 10*3 =30
11444
------------------------------------
11223 5!/(2!*2!*1!) = 5*4*3/2=30
11224 всего: 30*6 =180
11332
11334
11442
11443
-----------------------------------------
11234 5! / (2!1!1!1!) = 5*4*3=60
------------------------------------------------------------------------
Итого: 180+30+60 = 270
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -35, 35);
a.Println;
var s := 0;
for var i := 0 to a.High do
begin
if i.IsOdd then
s += a[i];
if a[i] mod 5 = 0 then
Print(a[i])
end;
Writeln;
Println('Сумма', s)
end.
Для начала представим 65712 в двоичной системе: 65712 = 65536 + 128 + 32 + 16 = 1 00000000 10110000₂; Значит, ответ - 3 байта.