Вопрос по информатике:
1)Дано целое многозначное число n.Найти сумму цифр этого числа 2)Найти произведение первых n натуральных чисел.
2)Найти произведение первых n натуральных чисел.
- 25.05.2016 07:23
- Информатика
- remove_red_eye 10558
- thumb_up 41
Ответы и объяснения 1
а если число трехзначное?)))
var n,i,p:integer;
s:string;
Begin
read(n);
s:=str(n) ; {переводим число в строку}
n:=0;
for i := 1 to length(s) do
n:= n+ int(s[i]); {переводим каждый символ строки обратно в цифру}
writeln(n);
read(n);
p:=1;
for i:= 1 to n do
p:= P*i;
writeln(p);
End.
- 26.05.2016 13:19
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.