задание 2.составьте программу ,выводящую на экран все двузначные числа ,у которых первая цифра в два раза больше второй.

задание 3. составьте программу вычисления количества трехзначных чисел-палиндромов(чисел,которые читаются одинаково слева направо и справа налево).

задание 4.найдите количество двузначных чисел ,которые делятся на сумму своих чисел.

Ответы:

Задание 1

Var i:Integer,

Begin 

  For i:= 1 to 99 do 

  If i mod 2 = 0 Then Write(i, ), 

  WriteLn(#13,#10,Числа кратны 2),   

    If i mod 3 = 0 Then Write(i, ),   

    WriteLn(#13,#10,Числа кратны 3),

end.