Створіть масив із 5-ти цілих чисел, які запитуються у користувача та вводяться 3 клавіатури. Виведіть масив на екран у вигляді стовпчика.

На одном локальном можно сохранить 20 ГБ

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x,z:real;
  for var i:=0 to 18 do begin
    x:=-3+0.5*i;
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8)
    end;
end.

Результат
-3.0     0.02603404
-2.5     0.05396053
-2.0     0.05396053
-1.5     0.15941934
-1.0     0.15783283
-0.5     0.11009307
 0.0     0.10000000
 0.5     0.16817855
 1.0     0.21459633
 1.5     0.16205869
 2.0     0.16205869
 2.5    -0.47852157
 3.0    -0.48851066
 3.5    -0.38218382
 4.0    -0.18498749
 4.5     0.00385685
 5.0     0.00385685
 5.5     0.30151270
 6.0     0.23243357

№2

begin
  var x,z:real;
  x:=-3;
  while x<=6.01 do begin
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8);
    x+=0.5
    end;
end.

№3

begin
  var x,z:real;
  x:=-3;
  repeat
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8);
    x+=0.5
  until x>6.01
end.

1 символ = 8 бит
70*30*6 = 12600, то есть 1575 байт

#include <iostream>
#include <iomanip>
using namespace std;

int main() {
double x, y;
    cout << "x = ";
    cin >> x;
    if (x != 0) {
    y=x+1/x;
    cout << "y = " << fixed << setw (7) << y;
    }
    else cout << "no solution";
}

Пример:
x = 25
y = 25.040000