Нужно перевести программы из языка c++ в c чтобы они работали
1 программа
#include
using namespace std;
int main()
{
int y, x;
cin >> x >> y;
if((1-x>y) && (x<1) && (2xx cout<<"yes";
else
cout<<"no";
}
2 программа
#include
using namespace std;

int main()
{
int n,digit;
cin >> n;
digit = 0;
while (n > 0)
{
digit = n % 100;
if (digit % 3 == 0)
{
cout << digit << endl;
}
n = n / 10;
}
}

ответ:

static void main(string[] args)

        {

            int n; double proizvedenie = 1;

            console.write("укажите размерность массива: ");

            n = convert.toint32(console.;

            int[] mas = new int[n];

            random rnd = new random();

            for (int i = 0; i < n; i++)

            {

                mas[i] = rnd.next(1, 10);

            }

            console.writeline("массив: ");

            for (int i = 0; i < n; i++)

            {

                console.write(string.format("{0,3}", ;

            }

            console.writeline();

            if (n > = 200)

            {

                for (int i = 0; i < 200; i++)

                {

                    proizvedenie = proizvedenie * math.pow(mas[i], 2);

                }

                console.writeline("произведение квадратов первых 200 чисел = " + proizvedenie);

            }

            else

            {

                console.writeline("размерность массива < 200.");

            }

            console.writeline();

            console.readkey();

        }

объяснение:

как я понял из вопроса - создаётся случайный массив из 200+ чисел, и находится произведение квадратов первых 200 чисел. число получается достаточно огромное.

FOR15

program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
end.

FOR16

program fofgogjoj;
var
i, n: integer;
a, p: real;
begin
Writeln('Введите число:');
Write(' a = ');
Readln(a);
Writeln('Введите показатель степени (n > 0):');
Write(' N = ');
Readln(N);
Writeln('Все степени числа ', a, ' от 1 до ', n, ':');
p:= 1;
for i:=1 to n do
begin
p:= p*a;
Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
end
end.