Вопрос по информатике:
Помогите Паскаль Дано трёхзначное число.Найти сумму и произведение его цифр.
Пожаловаться
- 19.10.2017 05:02
- Информатика
- remove_red_eye 5811
- thumb_up 43
Ответы и объяснения 1
Var number,a,b,c:integer;
begin
writeln('Введите трёхзначное число');
readln(number);
a:=number div 100;
b:=(number div 10) mod 10;
c:=number mod 10;
writeln(a,' - Первая цифра числа');
writeln(b,' - Вторая цифра числа');
writeln(c,' - Третья цифра числа');
writeln('Сумма цифр числа = ',a+b+c);
writeln('Произведение цифр числа = ',a*b*c);
end.
begin
writeln('Введите трёхзначное число');
readln(number);
a:=number div 100;
b:=(number div 10) mod 10;
c:=number mod 10;
writeln(a,' - Первая цифра числа');
writeln(b,' - Вторая цифра числа');
writeln(c,' - Третья цифра числа');
writeln('Сумма цифр числа = ',a+b+c);
writeln('Произведение цифр числа = ',a*b*c);
end.
Пожаловаться
- 20.10.2017 08:57
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы