Найти сумму, количество и среднее арифметическое всех трехзначных чисел с одинаковой первой и последней цифрой - Pascal ABC
Формулировка задачи:
найдите сумму,количество и среднее арифметическое всех натуральных трехзначных чисел,которые начинаются и заканчиваются одинаковыми цифрами
Решение задачи: «Найти сумму, количество и среднее арифметическое всех трехзначных чисел с одинаковой первой и последней цифрой»
textual
Листинг программы
uses crt;
var i,S,k:integer;
T: string;
begin
S:=0;
k:=0;
for i:=101 to 999 do
begin
str(i,T);
if T[1]=T[3] then
begin
inc(S,i);
inc(k);
end;
end;
writeln('Сумма = ', S, ' Количество = ',k, ' Среднее арифметическое = ', S/k);
end.
Объяснение кода листинга программы
- В начале кода объявляются переменные S, k и T типа integer и строка соответственно.
- Переменная S инициализируется значением 0, а переменная k - значением 0.
- Затем происходит цикл от 101 до 999 (включительно), который выполняется для каждой трехзначной цифры.
- Внутри цикла переменная i принимает значение текущей цифры.
- Строка T формируется из числа i, используя функцию str().
- Затем проверяется, равны ли первая и последняя цифры числа i.
- Если это условие истинно, то увеличивается значение переменной S на текущее число i, и значение переменной k увеличивается на 1.
- После завершения внутреннего цикла, выводится сообщение, содержащее сумму, количество и среднее арифметическое.
- Код завершается после вывода сообщения.