Яндакс лицей напишите функцию export_check(text), которая принимает на вход текст, где каждая строка состоит из: названия товара (строка) цены за единицу товара (вещественное число) количества единиц товара (целое число) (значения внутри строки разделены символом табуляции). ваша программа должна обработать полученные данные и создать документ excel res.xlsx, в котором будут следующие столбцы: «товар», «цена за единицу товара», «количество товара», «общая стоимость товара» (названия столбцов выводить не надо) в столбце «общая стоимость товара» должна содержаться формула, которая рассчитывает общую стоимость товара как произведение цены и количества товара (с использованием простого перемножения ячеек). последней строкой должно идти «итого», c пустыми значениями в столбцах «цена за единицу товара» и «количество товара». в столбце «общая стоимость товара» должна содержаться формула, которая считает общую сумму покупок. (с использованием функции excel сумм)

1)

var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 10 do

begin

if mas[i]<0 then counter:=counter+1;

end;

end.

2)

var mas: array[1..5] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 5 do

begin

if (mas[i]>0) and (i mod 2 = 0) then counter:=counter+1;

end;

end.

3)

var mas: array[1..15] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 15 do

begin

if (mas[i]>5) and (i mod 2 = 0) then counter:=counter+1;

end;

end.

4)

var mas: array[1..15] of integer;

var counter: integer;

begin

for i:= 1 to 15 do

begin

mas[i] = random(20) - 5;

end;

for i:= 1 to 15 do

begin

writeln(mas[i]);

end;

for i:= 1 to 15 do

begin

if (mas[i]>0) then counter:=counter+1;

end;

end.

5)

var mas: array[1..7] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 7 do

begin

readln(mas[i]);

end;

for i:= 1 to 7 do

begin

if mas[i]>0 then mas[i]=0;

end;

for i:= 1 to 7 do

begin

writeln(mas[i]);

end;

end.

6)

var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

var sum: real;

var average: real;

begin

for i:= 1 to 7 do

begin

readln(mas[i]);

end;

for i:= 1 to 7 do

begin

if mas[i]<0 then

begin

sum:=sum+mas[i];

counter:=counter+1;

end

end;

average:= sum/counter;

end.

Объяснение:

1)

#include <iostream>

using namespace std;

int main() {

   int x;

   cin >> x;

   cout << "V = " << x * x * x << endl << "S = " << x * x;

   system("pause");

   return 0;

}

2)

#include <iostream>

using namespace std;

int main() {

   double a, b;

   cin >> a >> b;

   if (a > b) {

       cout << "a > b " << endl << a;

   }

   else {

       cout << "a <= b " << endl << a << b;

   }

   system("pause");

   return 0;

}

3)

#include <iostream>

using namespace std;

int main() {

   int x;

   cin >> x;

   if (x % 2 == 0) cout << "YES";  

   else cout << "NO";

   cout << endl;

   if (x % 10 == 3) cout << "YES";

   else cout << "NO";

   cout << endl;

   system("pause");

   return 0;

}