В Pascal ABC необходимо: Задача 1. Вывести на экран все двузначные числа, которые нацело делятся на число, введённое пользователем. Задача 2. Даны трёхзначные натуральные числа n и k (n меньше k). Из чисел от n до k найти...
В 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, программа выводит список всех возможных сочетаний сторон.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы