Дано целое число.подсчитать в нём произведение цифр,которые расположены на нечётных позициях.
218
357
Ответы на вопрос:
Здесь пришлось учитывать положительные и отрицательные числа, т.к. длина строки с отрицательным числом включает в себя и знак минус. поэтому в некоторых местах программы я добавлю пояснение. var n,p: integer; s: string; begin write ('введите число: '); readln (n); if n< 0 then n: =-n; // отрицательное число переделываем в положительное, чтобы "длина строки" ниже не получилась больше количества цифр в числе str(n,s); // преобразуем число в строку, чтобы узнать длину числа (количество цифр) if (length(s) mod 2)=0 then n: =n div 10; // проверяем длину числа на четность. так как нам нужны цифры с нечетных мест, убираем из числа последнюю цифру, которая стоит на четном месте: p: =1; while n> =1 do begin // организуем цикл пока число не станет меньше единицы (в цикле мы будем отрезать от него по две цифры) p: =p*(n mod 10); // произведение умножаем на последнюю цифру числа (остаток от деления числа на 10) n: =n div 100; // отрезаем от числа 2 последние цифры. (в последней итерации цикла оно примет вид 0,0х, т.е. будет больше 0, но меньше 1) end; writeln; writeln ('произведение цифр,которые расположены на нечётных позициях, = ',p); end.проимер: введите число: -2323произведение цифр,которые расположены на нечётных позициях, = 4
Популярно: Информатика
-
Portée23.08.2022 00:47
-
annapetrovakons03.11.2020 02:21
-
mishkateddi1931.12.2020 18:27
-
sofiazahhа10.02.2023 12:56
-
maxirufer117.10.2021 11:09
-
Avenrop23617.03.2023 11:04
-
iordanaurikap06yjs05.06.2023 19:15
-
nik171607.12.2020 16:36
-
Баянсулу1112.06.2022 05:34
-
TheGrigory15.06.2021 00:04