Вопрос по информатике:
Водится 2 числа, вывести сумму цифр первого, если оно больше второго и произведение
четных цифр второго числа в противном случае(pascal)
- 05.10.2017 06:01
- Информатика
- remove_red_eye 6701
- thumb_up 12
Ответы и объяснения 1
Var
S,a,b:integer;
p:real;
begin
readln(a,b);p:=1;s:=0;
if a>b then
begin
while abs(a)>0 do
begin
s:=s+(abs(a) mod 10);
a:=a div 10;
end;
writeln('s = ',s)
end
else
begin
while abs(b)>0 do
begin
p:=p*(abs(b) mod 10);
b:=b div 10;
end;
writeln('P = ',p:4:2);
end;
end.
- 07.10.2017 00:49
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.