Question

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

Answer 1

Задание 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.