Question

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

Answer 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