25 . составить программу для нахождения всех двузначных чисел, которые делятся на число n или содержат цифру n. (значение переменной вводится с клавиатуры). сделайте полноценный ответ, .
127
306
Ответы на вопрос:
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
Популярно: Информатика
-
Anya2k1707.04.2022 23:40
-
dimagolovin2009.09.2020 16:24
-
anfusatarasova216.04.2021 00:44
-
sof200814.12.2022 12:01
-
Elnarikys26.02.2020 22:02
-
sonikzets09.06.2022 09:21
-
PоLinaKozloVa20.02.2023 18:53
-
AnTonDPR15.09.2021 17:52
-
MEGRAD12.11.2020 20:31
-
mitaikooo15.06.2021 04:04