25 баллов. Составить программу для нахождения всех двузначных чисел, которые делятся на число n или содержат цифру n. (Значение переменной вводится с клавиатуры). Сделайте полноценный ответ, пожалуйста.
Answers & Comments
JahKhalib228program sdad;vara, b, i, c: integer;sum, pro, sr: real;beginsum := 0;pro := 1;sr := 0;c := 0;readln(a, b);for i := a to b dobeginc := 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
Answers & Comments
вот там с помощью кнопки с клавы a и b