Вопрос по информатике:
Введите с клавиатуры 5значное число и посчитайте произведение нечетных цифр числа
- 22.03.2015 21:00
- Информатика
- remove_red_eye 8044
- thumb_up 41
Ответы и объяснения 2
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.
- 23.03.2015 05:16
- thumb_up 9
Program tak;
var a,b,c,d:integer;
begin writeln('введите пятизначное число ');
readln(a);
d:=1;
while (a0) do
begin
b:=a mod 10;
if (b mod 2 0) then
d:=d*b;
a:=a div 10;
end;
writeln(d);
end.
- 24.03.2015 11:03
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.