В 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, программа выводит список всех возможных сочетаний сторон.

Question

Информатика

Исаакин

22 апреля, 04:59

В 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

Ответы (1)

Знаете ответ на вопрос?

Авель · 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.