Паскаль.Проверочная работа.

[levine]

1)Найти все четырехзначные числа,у которых сумма крайних цифр равна сумме средних цифр,а само число делится на 6.
2)Найти кол-во делителей натурального числа.Сколько из них четных?
Помогите,пожалуйста.Я буду очень благодарна!

[Valio]

Где наработки?

[Stilet]

var i,n:integer;
begin
 for i:=1000 to 9999 do begin
  if ((i mod 10)+(i div 1000))=((i mod 1000 div 100)+(i mod 100 div 10)) and ((i mod 6)=0) then write(i:5);
 end;
 readln;
end.

Не проверял, но думаю подойдет.

[levine]

работает!
спасибо большое)

а вторую уж не поможете?

[Stilet]

Вторую не. Я ее не понимэйт. Я не математик.

[levine]

эх,спасибо за первую.

[Poma][a]

№1

var
        i : Integer;
        a, b, c, d : Integer;

begin
        for i := 1000 to 9999 do begin
                if i mod 6 = 0 then begin
                                a := i div 1000;
                                b := (i mod 1000) div 100;
                                c := (i mod 100) div 10;
                                d := i mod 10;
                                if (a + d) = (b + c) then
                                        Write (i, ' ')
                end
        end
end.

№2
Вот тут сложнее, есть теорема : Если существует K классов, содержащих соответственно n1 , n2 , . . . nK элементов, то число различных способов выбора элементов равно (n1 + 1)(n2 + 1)...(nK + 1)

Тогда для решения задачи необходимо разложить число x на простые множители, посчитать сколько раз встречается каждое простое число в разложении и перемножить соотвествующие результаты в соответствии с вышеприведенной формулой.
Но вот тут вопрос :

сколько из них четных ?

и тогда по-старинке искать все делители? уж слишком долго...
UPDATE

var
	 n, k, sq, count, countodd : LongInt;
         a : array [1..1000] of Integer;

begin
	ReadLn (n);
	sq := Trunc (sqrt(n));
        count := 1;
	for k := 1 to sq - 1 do
		if n mod k = 0 then begin
                        a[count] := k;
                        a[count + 1] := n div k;
                        Inc (count, 2)
                end;

	if n mod sq = 0 then
		if sq * sq = n then
                        a[count] := sq
                else begin
                        a[count] := sq;
                        a[count + 1] := n div sq
                end;
        Write ('Всего ', count, ' делителей');

        countodd := 0;
        for k := 1 to count do
                if Odd (a[k]) then
                       Inc (countodd);

        WriteLn ('Из них ', count - countodd, ' четных');

end.

[levine]

что это?что такое count?inc,counodd?
можно без всего этого обойтись?
ну то есть я знаю простые функции типа trunc,sqrt,типы переменных.
проще никак нельзя?

[Poma][a]

А справки нет? Или учебника? Или хотя бы своих наработок?
Inc (a) = a := a + 1
count и countodd - названия переменных

[levine]

извиняйте уж.
учебников действительно нет,нынче школьная программа такова,что в учебников все не то написано.
спасибо большое)