Входные данные вводятся 4 числа: a, b, c и d. выходные данные найдите все целые решения уравнения ax3 + bx2 + cx + d = 0 на отрезке [0, 1000] и выведите их в порядке убывания. если на данном отрезке нет ни одного решения, то ничего выводить не нужно. примеры входные данные 2 4 9 1 выходные данные входные данные 1 2 -4 -8 выходные данные 2

//Pascal ABC.NET 3.1 сборка 1256

Var
 y,a,b,c,d:real;
begin
read(a,b,c,d);
range(0,1000).where(x -> a*power(real(x),3)+b*sqr(x)+c*x+d=0).Reverse.Print;
end.

Пример ввода:
0
-1
1
0
Пример вывода:
1 0

Pascal:
const a:array [1..5,1..5] of integer = ((1,2,3,4,5),
                                                       (6,7,8,9,10),
                                                       (11,12,13,14,15),
                                                       (16,17,18,19,20),
                                                       (21,22,23,24,25));
var I,j:integer;
begin
  for i:=1 to 5 do
    for j:=1 to 5 do write (a[I,j],' ');
  writeln;
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do write (a[I,j]:3);
      writeln;
    end; 
  readln;
end. 

C++:
#include <iostream>
#include <iomanip>
using namespace std;

int main()
{
    int a[5][5] = {{1,2,3,4,5},
                        {6,7,8,9,10},
                        {11,12,13,14,15},
                        {16,17,18,19,20},
                        {21,22,23,24,25},};
    for (int I = 0; I<5; I++)
       for (int j = 0; j<5; j++)
          cout <<a[I][j] <<" ";
    cout <<endl;
    for (int I = 0; I<5; I++)
       {
           for (int j = 0; j<5; j++)
               cout <<setw(3) <<a[I][j];
           cout <<endl;
       }
    return 0;
}

а) “Солнце есть спутник Земли”;логическое высказывание т.к создаёт утверждение и его можно проверить его истинность, и она = ложьб) “2+34”не логическое высказывание, ничего не утверждаетв) “сегодня отличная погода”;логическое высказывание, можно проверить задав критерий понятия "отличная погода"г) “в романе Л.Н. Толстого “Война и мир” 3 432 536 слов”;логическое высказывание т.к создаёт утверждение и его можно проверить его истинность например для текста на английском языкед) “Санкт-Петербург расположен на Неве”;логическое высказывание т.к создаёт утверждение и его можно проверить его истинностье) “музыка Баха слишком сложна”;в принципе логическое высказывание, но сложно придумать пример как можно проверить его истинностьж) “первая космическая скорость равна 7.8 км/сек”;для каждой планеты своя космическая скорость, для земли будет истинна, для марса ложь - логическое высказываниез) “железо — металл”;констатация факта, не логическое утверждениеи) “если один угол в треугольнике прямой, то треугольник будет тупоугольным”;логическое утверждение, которое ложьк) “если сумма квадратов двух сторон треугольника равна квадрату третьей, то он прямоугольный”.логическое утверждение, его можно проверить.