Напишите программу Паскаль для задач: 1)найти сумму и произведение натурального ряда от 1 до 10. 2)Дано натурально число n.Вычислить 2 в n степени. 3)Дано натуральное число n.Чему равна сумма его цифр?

Предыдущий
вопрос Следующий
вопрос

Программа для задач 1:

program SumAndProduct
va
i, sum, product: integer
begi
sum := 0
product := 1
for i := 1 to 10 d
begi
sum := sum + i
product := product * i
end
writeln('Сумма ряда от 1 до 10: ', sum)
writeln('Произведение ряда от 1 до 10: ', product)
end.

Программа для задачи 2:

program PowerOfTwo
va
n, result: integer
begi
writeln('Введите натуральное число n:')
readln(n)
result := 1
for i := 1 to n d
begi
result := result * 2
end
writeln('2 в ', n, ' степени = ', result)
end.

Программа для задачи 3:

program SumOfDigits
va
n, sum, digit: integer
begi
writeln('Введите натуральное число n:')
readln(n)
sum := 0
while n > 0 d
begi
digit := n mod 10
sum := sum + digit
n := n div 10
end
writeln('Сумма цифр числа ', n, ' = ', sum)
end.