Написать программу, определяющую сумму n- значных чисел, содержащих только нечетные цифры. Определить так же, сколько четных цифр в найденной сумме.
program chisla; var n, sum, sum2, a, f1, stepen, stepen1, x, f, sum1: longint; begin Writeln('введите n'); readln(n); stepen := 1; sum := 0; for a := 1 to n do{возводим в степень} begin stepen := stepen * 10; end; writeln('определяем верхнюю границу диапазона'); writeln(stepen); stepen1 := 1; for a := 1 to n - 1 do{возводим в степень} begin stepen1 := stepen1 * 10; end; writeln('определяем нижнюю границу диапазона'); writeln(stepen1); sum1 := 0; for x := stepen1 to stepen - 1 do begin sum := 0; f := x; while (f <> 0 ) do begin if (f mod 10) mod 2 = 0 then sum := sum + x; f := f div 10; end; if sum = 0 then begin sum1 := sum1 + x; end; end; writeln('выводим сумму нечетных чисел'); writeln(sum1); f1 := sum1; sum2 := 0; while (f1 <> 0 ) do begin if (f1 mod 10) mod 2 = 0 then sum2 := sum2 + 1; f1 := f1 div 10; end; writeln('выводим количество четных цифр в получившейся сумме'); writeln(sum2); end.
Определение границ диапазона n- значных чисел в Паскале довольно громоздкое решение, и мы их определили как ряд чисел в диапазоне от 10n-1 до 10n. Далее идет код программы, который выделяет нечетные цифры из числа и суммирует их. После получения суммы идет аналогичная обработка суммы и подсчитывается количество четных цифр в ней. Отдельно программа выделения цифр из числа представлена в другом уроке.
Автор: Лобанева Анастасия 9 класс.