Вопрос по информатике:
Дано пятизначное число. Что кратно 2: сумма цыфр или произведение. Составте пожалуйста программу
Пожаловаться
- 13.10.2017 00:19
- Информатика
- remove_red_eye 5727
- thumb_up 17
Ответы и объяснения 1
Var
sum, com, n:integer;
begin
Read(n);sum:=0;com:=1;
while (n > 0) do begin
sum:= sum + n mod 10;
com:= com * (n mod 10);
n:= n div 10;
end;
if sum mod 2 = 0 then Writeln('Сумма цифр четная');
if com mod 2 = 0 then Writeln('Произведение цифр четное');
if (sum mod 2 = 1)and(com mod 2 = 1) then Writeln('Ни сумма ни произведение не делятся на 2 без остатка');
end.
sum, com, n:integer;
begin
Read(n);sum:=0;com:=1;
while (n > 0) do begin
sum:= sum + n mod 10;
com:= com * (n mod 10);
n:= n div 10;
end;
if sum mod 2 = 0 then Writeln('Сумма цифр четная');
if com mod 2 = 0 then Writeln('Произведение цифр четное');
if (sum mod 2 = 1)and(com mod 2 = 1) then Writeln('Ни сумма ни произведение не делятся на 2 без остатка');
end.
Пожаловаться
- 14.10.2017 10:20
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы