Составить программу вычисления значения функций y= x^3-2,5xy+1,78x^2-12,5y. при любых значениях (x) и (y) (pascal)

#include <iostream>

#include <conio.h>

#include <cstdlib>

#include <ctime>

using namespace std;

void Function()

{

int number;

srand(time(0));

cout << "Введите число" << endl;

for (;;)

{

 cin >> number;

 if (number == 0)

 {

  break;

 }

 for (;;)

 {

  int x = rand();

  if (x < number)

  {

   cout << x << endl;

   break;

  }

 }

}

}

int main()

{

setlocale(LC_ALL, "Russian");

Function();

_getch();

return 0;

}

Объяснение:

Подбирает каждай раз рандомное число , пока оно не станет меньше чем ввел пользователь. (Отрицательные числа не вводить, т.к rand генерирует только положительные, хотя можно и подшаманить чтобы генерировал отрицательные)

1)

program next;

var a,s,d,f,g,h:integer;

begin

read(h);

for a:=1 to h do

begin

read(d);

if (d mod 4 =0)then

begin

f:=f+1;  

end;  

end;  

writeln(f);

end.

2)

program next;

var a,s,d,f,g,h:integer;

begin

read(h);

for a:=1 to h do

begin

read(d);

if (d mod 6 =0)then

begin

f:=f+d;  

end;  

end;

writeln(f);

end.

3)

program next;

var a,s,d,f,g,h:integer;

begin

for a:=1 to 1000 do

begin

read(d);

if d=0 then

begin

break;  

end;

if (d>9)and(d<100)then

begin

if (d mod 5 =0)then

begin

f:=f+1;  

end;  

end;

end;

writeln(f);

end.

4)

program next;

var a,d,f,g,h:integer;

s:real;

begin

for a:=1 to 1000 do

begin

read(d);

if d=0 then

begin

break;  

end;

if (d>0)then

begin

if (d mod 8 =0)then

begin

h:=h+1;  

f:=f+d;

end;

end;  

end;

if (h>0)then

begin

s:=f/h;

writeln(s);

end

else

begin

writeln('0');  

end;

end.

Объяснение: