Нужны несколько программ на QuickBASIC

[mmarina80]

Если для вас это так легко, помогите, пожалуйста, составить еще несколько программ. У меня основные трудности в математике.
1. составить программу для определения суммы цифр заданного трехзначного числа.
2. Составить программу для определения делителей заданного числа N.
3. В матрице размером m X n найти сумму элементов j-го столбца и сумму элементов i-ой строки, лежащих в пределах от -1 до 2. Параметры m, n, i, j ввести с помощью оператора ввода INPUT.
4. Составить программу для вычисления периметра, площади и углов (в градусах) прямоугольного треугольника, заданного длинами катетов.
5. Составить программу для проверки, принадлежит ли точка А (x, y) отрезку КМ, если К (x1, y1), M (x2, y2).
6. Вывести на экран отрицательные значения функции y=4x(5-3x^2) при изменении x от 1 до 2 с шагом 0,1.
7. В матрице размером m X n найти максимальное число и его координаты. Напечатать:
Макс.элемент=...., его координаты: I=..., J=.... .

[Андрей.12]

1)

input a
c=a\100
c1=c*100
c2=a-c1
c3=c2\10
c4=c3*10
c5=c2-c4
c6=c+c3+c5
print c6
end.

[Андрей.12]

написал на паскале, у вас же проблеммы с математикой, а не программированием думаю переведете на бэйсик.
2)

var a,n,i:integer;
begin
readln(a);
for i:=1 to a do
if (a mod i=0) then writeln(i);
i:=i+1;
readln;
end.