25 баллов. Составить программку для нахождения всех двузначных чисел, которые делятся

25 баллов. Составить программу для нахождения всех двузначных чисел, которые делятся на число n либо содержат цифру n. (Значение переменной вводится с клавиатуры).
Сделайте настоящий ответ, пожалуйста.

Задать свой вопрос
1 ответ
program sdad; var a, b, i, c: integer; sum, pro, sr: real; begin sum := 0; pro := 1; sr := 0; c := 0; readln(a, b); for i := a to b do begin c := c + 1; sum := sum + i; pro := pro * i; sr := sr + i * i; end; sr := sr / c; writeln('Сумма чисел = ', sum); writeln('Творение чисел = ', pro); writeln('Среднее арифметическое кубов = ', sr); end.
вот там с подмогою кнопки с клавы a и b
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт