заданиеответить на вопросы, по надобности написать измененный код ">

i - цикловая переменнаяs1 - сумма нечётных чисел от 1 до 100s2 - сумма чётных чисел от 1 до 100vari, s1, s2 : integer; begins1 : = 0; s2 : = 0; for i : = 1 to 100 do beginif i mod 2 = 0 thens2 : = s2 + i; elses1 : = s1 + i; end; writeln ('сумма четных чисел: ', s2); writeln ('сумма нечетных чисел: ', s1); end.

на каком языке нужна программа?   пример на paskal:   program zadacha;   var massiv: array [1..15] of integer; i: byte; massiv2: array [1..15] of real;   begin  randomize;   write('isxodnij massiv: ');   for i: =1 to 15 do  begin  massiv: =random(41)-20;   write(massiv,' ');   end;   writeln;   writeln('massiv posle preobrazovanij: ');   for i: =1 to 15 do  begin  if massiv=0 then massiv2: =massiv  else  if massiv mod 5 = 0 then massiv2: =massiv*2  else begin  massiv2: =massiv;   massiv2: =massiv2/2;   end;   write(massiv2: 0: 1,' ');   end;   readln;   end.

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите

а) наименование товаров, цена за единицу товара, количество каждого товара

б) общая сумма покупки, сумма денег переданная продавцу

в) программа телепередач, название фильма

г) набор значений углов и сторон треугольника, должна быть известна хотя бы одна сторона треугольника и еще две величины(углы или стороны)