Вопрос по информатике:
Дано трёхзначное число.Найти:
а) число единиц в нем;
Б) число десятков в нем;
в)сумму его цифр;
г) произведение его цифр
Пожаловаться
- 02.10.2017 18:16
- Информатика
- remove_red_eye 16419
- thumb_up 6
Ответы и объяснения 1
Var a:integer;
begin
write('Введите трёхзначное число: ');
readln(a);
writeln('Число единиц в числе ',a, ' равно: ',abs (a mod 10));
writeln('Число десятков в числе ',a, ' равно: ',abs (a mod 100 div 10));
writeln('Сумма цифр числа ',a, ' равна: ', abs (a div 100) + abs (a mod 100
div 10) + abs (a mod 10));
writeln('Произведение цифр числа ',a, ' равно: ', abs (a div 100) * abs (a
mod 100 div 10) * abs (a mod 10))
end.
begin
write('Введите трёхзначное число: ');
readln(a);
writeln('Число единиц в числе ',a, ' равно: ',abs (a mod 10));
writeln('Число десятков в числе ',a, ' равно: ',abs (a mod 100 div 10));
writeln('Сумма цифр числа ',a, ' равна: ', abs (a div 100) + abs (a mod 100
div 10) + abs (a mod 10));
writeln('Произведение цифр числа ',a, ' равно: ', abs (a div 100) * abs (a
mod 100 div 10) * abs (a mod 10))
end.
Пожаловаться
- 03.10.2017 08:25
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы