Вопрос по информатике:
Найти частное произведений четных и не четных цифр четырехзначного числа n
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.10.2015 01:33
- Информатика
- remove_red_eye 4750
- thumb_up 19
Ответы и объяснения 2
Есть книжка такая, "Песни о Паскале". Глава 47.
Нужно разложите число на цифры и вычислить соответствующие произведения,
flag: false; m1: = 1; m2: = 1;
while N 0 do begin
if flag then m1:= m1*(N mod 10) else m2:= m2*(N mod 10);
flag:= not flag;
N:= N div 10;
end;
if m10 then Writeln(m2 div m1) else Writeln('Бесконечность');
Видела уже такой вопрос где-то года три назад.
- 22.10.2015 04:18
- thumb_up 45
Var
i,n,x:integer;
a:array[1..4]of integer;
begin
readln(n);
for i:=4 downto 1 do
begin
x:=n mod 10;
a[i]:=x;
n:=(n-x) div 10;
end;
writeln('Произведение четных: ',a[2]*a[4]);
writeln('Произведение нечетных: ',a[1]*a[3]);
end.
Если можно использовать строковые функции, то будет проще:
var
i:integer;
n:string;
a:array[1..4]of integer;
begin
readln(n);
for i:=1 to 4 do a[i]:=StrToInt(n[i]);
writeln('Произведение четных: ',a[2]*a[4]);
writeln('Произведение нечетных: ',a[1]*a[3]);
end.
- 23.10.2015 05:33
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.