Задача для 8 класса

[Анастасия_ns]

1. Найти сумму четных чисел делителей натурального числа.
2. Дано натуральное число. Определить, какая из его цифр больше: первая или последняя.
3. Дано натуральное число. Определить, есть ли в нем цифры А и В.
4. Гражданин 1 марта открыл счет в банке, вложив 1000 рублей. Через месяц размер вклада увеличился на 2% от имеющейся суммы Определить за какой месяц величина ежемесячного увеличения вклада превысит 30 рублей.
5. Найти все равновеликие прямоугольные треугольники, катеты которых равны a и b, а площадь S (a и b принадлежат интервалу от 1 до 20, а S вводится с клавиатуры.

Заранее спасибо, и если можно то до завтра решить)

[Sparkman]

Задача 1. Найти сумму четных делителей натурального числа (использовать циклы).

    program test;
    uses
        crt;
    var
        n : word;
        i : word;
        sum : word;
    begin
        clrscr;
     
        textColor(red);
        write('Введите натуральное число: ');
        readln(n);
     
        sum := 0;
        for i := 2 to n div 2 do
        begin
            if((n mod i = 0) and (odd(i) = false)) then
            begin
                sum := sum + i;
            end;
        end;
     
        textColor(green);
        writeln('Cумма четных делителей числа ', n, ' равна: ', sum);
     
        readln;
    end.

2

uses crt;
var n,l:integer;
begin
     clrscr;
     readln(n);
     l := n mod 10;

     while n div 10 > 0 do
     n:=n div 10;

     if n>l then
          writeln('First digit bigger than last')
     else if n<l then
          writeln('First digit smaller than last')
     else
          writeln('First digit equal last');
     readln;
end.

3

uses crt;
var n:integer;
    a,b:byte;
    ain,bin : boolean;
begin
     clrscr;
     write('n=');
     readln(n);
     write('a=');
     readln(a);
     write('b=');
     readln(b);
     while n > 0 do
     begin
          if n mod 10 = a then ain:=true;
          if n mod 10 = b then bin:=true;
          if ain and bin then break;
          n := n div 10;
     end;
     if ain then writeln('a in n') else writeln('a not in n');
     if bin then writeln('b in n') else writeln('b not in n');
     readln;
end.

4.

uses crt;
var saldo,prc:real;
    month:integer;
begin
     clrscr;
     saldo:=1000;
     prc:=20;
     month:=3;
     while prc<=30 do
     begin
          saldo:=saldo+prc;
          prc:=saldo*0.02;
          inc(month);
          if month>12 then month:=1;
     end;
     writeln('month: ',month);
     readln;
end.