Question

Вpascal abc необходимо: 1. вывести на экран все двузначные числа, которые нацело делятся на число, введённое пользователем. 2. даны трёхзначные натуральные числа n и k (n < k). из чисел от n до k найти все, запись которых содержит ровно две одинаковые цифры. например, числа 266, 661, 767, 776 – содержат ровно 2 одинаковые цифры. 3. дано два целых положительных числа a и n, вводимых с клавиатуры (выполнить проверку на выполнения данного условия). найти an и na. дополнительно: 4*. найти всех прямоугольники (указать длины их сторон), площадь которых равна s, а стороны a и b выражены натуральными числами. примечание. пользователь с клавиатуры вводит значение площади прямоугольника s, программа выводит список всех возможных сочетаний сторон.

Answer 1

1)

Program P;
Var
    n, i : Integer;
Begin
    Write('Enter n ');
    ReadLn(n);
    
    i := n;
    while i <= 99 do
    Begin
        Write(i, ' ');
        i := i + n;
    End;
    
    ReadLn;
End.