using System;
using System.Collections.Generic;
public class Task
{
public static void Main()
{
//Два вещественных числа на одной строке с любым числом пробелов
Console.WriteLine("Введите коэффициенты a, b:");
var s = Console.ReadLine().Split(' ', StringSplitOptions.RemoveEmptyEntries);
double a = Convert.ToDouble(s[0]);
double b = Convert.ToDouble(s[1]);
Console.WriteLine("Решения уравнения ({0})*x^3+({1})*x=0:", a, b);
//a*x^3+bx=0
//x(a*x^2+b)=0
//x = 0 или x = +-sqrt(-b/a)
List<double> roots = new List<double>();
roots.Add(0);
const double eps = 1e-7; //точность для сравнения с нулем вещественных чисел
if (Math.Abs(a) < eps)
{
if (Math.Abs(b) < eps)
{
Console.WriteLine("Бесконечное количество решений");
return;
}
}
else
{
double c = -b/a;
if (c > eps)
{
c = Math.Sqrt(c);
roots.Add(-c);
roots.Add(c);
}
}
foreach(var x in roots)
{
Console.Write("{0} ", x);
}
Console.WriteLine();
}
}
//PascalABC.NET
2)
begin
arrrandom(20, 0, 15).Println.Where(x -> x.IsOdd).Count.Println;
end.
3)
begin
readarrinteger('Введите результаты подтягиваний 18 учеников:', 18).Min.Println();
end.
.............................
1 файл - случай б.
2 файл - случай а.
Дано
N=16
K=128×200
Найти
I
Решение
I=k*i
N=2^i=16
i=4
I=4×128×200=102400 бит
102400:8=12800 байт
12800:1024=12,5 Кб
Ответ: 12,5 Кб