I=600Кбайт=600*2^10байт
К=60*х*64
i=2байта
x=600*2^10/
------------- = 10*2^3=320
2*60*2^6
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();
}
}
Ну , для начала ( если ты не сохранила ее) после изменения кнопку возврата нажать пару раз в левом верхнем углу. Если изменила то никак, ну только если кэш этой версии не сохранился в Temp или не сохранился на другом носителе информации.
//На Pascal
const N = 40;
var a: array [1..N] of longint;
i,k: longint;
begin
for i := 1 to N do
readln(a[i]);
k := 0;
for i := 1 to N - 1 do
if ((a[i] + a[i + 1]) mod 6 <> 0) and (a[i] * a[i + 1] <1000) then
k:=k+1;
writeln(k);
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var n:=ReadInteger('n=');
n.Step(n).TakeWhile(x->x<=50).Println
end.