решение задач tp

[junger@]

помогите пожалуйста решить две задачи!

1)найти все равновеликие прямоугольники,стороны каторых выражены целыми числами а и b, площадь равна S (a и b принадлежит промежутку от 1 до 20 a S вводится с клавиатуры)

2)найти сумму нечетных делителей натурального числа

[Niro]

Не проверял, но вроде правильно

writeln(N);
for i:=N downto 1 do
  if (N mod i)=0 and (i mod 2)<>0 then sum:=sum+1;

А насчет первой поясните условие на примере, т.е. ввели площадь, а на выходе...

[junger@]

спасибо большое!первую задачу я уже решил!!

Пожалуйста помогите решить три задачи!!!
1) дано натуральное число;
-сколько раз данная цифра А
встречается в данном числе ( A вводится с клавиатуры)
-верно ли,что в данном числе сумма цифр больше B,а само число делится на В ( В вводится с клавиатуры)
2)найдите все четырех значные числа,которые есть две одинаковые цифры.
3)из данного натурального числа удалить все цифры A ( A вводится с клавиатуры)

[Niro]

Хотите за стольник сделаю, а если просто так, то могу подкинуть идею

[junger@]

ДАВАЙТЕ ИДЕЮ