Плата за посылку бандероли вычисляется так: за бандероль весом до 50г взимается 10р. за каждые следующие полные и неполные 10г - еще по 5 р. вычислить плату за бандероль, если известен ее вес в граммах. надо составить программу.

Программу в чем написать? в какой среде?

#include < cctype>     #include < algorithm>     #include < cmath> #include < iomanip>     #include < windows.h> #include < conio.h> #include < set> #include < iostream>     #include < string>     #include < vector>     using namespace std; int main(){ int a, b,f=0,f1=0,ans=0; cin > > a > > b; if (a < 0 ) f = 1; if (b < 0) f1 = 1; for (int i = 0; i < abs(b); i++) { ans += a; } if (f == 1 & & f1 == 1) cout < < abs(ans); else if (f == 1 || f1 == 1) cout < < '-' < < abs(ans); else cout < < ans; return 0; }

//pascal //заполнение массива случайными числами var   a: array[1..255] of integer;   i, sum, n: integer; begin write('введите n: '); readln(n); randomize; //в pascalabc.net можно убрать for i : = 1 to n do begin   a[i] : = random(21)-10; //случайные числа от -10 до 10   if ((a[i] mod 2 < > 0) and (a[i] < 0)) then sum : = sum + a[i];   write(a[i], ' '); end; writeln; writeln('сумма отрицательных и нечетных = ', sum); readln; end.  //pascal //заполнение массива с клавиатуры var   a: array[1..255] of integer;   i, sum, n: integer; begin write('введите n: '); readln(n); for i : = 1 to n do begin   write('a[', i, '] = '); readln(a[i]);   if ((a[i] mod 2 < > 0) and (a[i] < 0)) then sum : = sum + a[i]; end; writeln; writeln('сумма отрицательных и нечетных = ', sum); readln; end.