Информатика, опубликовано 2018-08-22 22:27:15 by Гость
Введите с клавиатуры 5значное число и посчитайте произведение нечетных цифр числа
Ответ оставил Гость
Var ab, sum: integer;
a: array[1..5] of integer;
begin
readln (ab);
a[1]:= ab div 10000;
a[2]:= ab mod 10000 div 1000;
a[3]:= ab mod 1000 div 100;
a[4]:= ab mod 100 div 10;
a[5]:= ab mod 10;
for i: integer:= 1 to 5 do
if a[i] mod 2= 1
then sum+=a[i];
writeln (sum);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на