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

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

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

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

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

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

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

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