Var x ,y: integer;
begin
for x:=-4 to 4 do
begin
y:=2*x*x*x-7*x;
writeln('При x = ', x, ' y = ', y);
end;
<span>end.</span>
Раскодировка в понятный формат
Var
n:longint;
s:string;
k:integer;
begin
Read(n);
Str(n,s); k:=Length(s);
Writeln(Ord(s[k-1])+Ord(s[k-4])-2*Ord('0'))
end.
using System;
namespace ConsoleApp4
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите число:");
int n, sum = 0;
n = Int32.Parse(Console.ReadLine());
if (n != 0)
{
do
{
sum += n;
Console.WriteLine("Введите число:");
n = Int32.Parse(Console.ReadLine());
} while (n != 0);
Console.WriteLine("Сумма равна: " + sum);
} else
{
Console.WriteLine("Сумма равна: " + sum);
}
}
}
}
756 бит =94,5 байт 176 килобайт =180224 байт 577 мегабайт =590848 килобайт