Напишите программу на языке паскаль, которая вычесляет сумму:а) первых n натуральных чисел;б) квадратов первых n натуральных чисел;в) всех чётных чисел в диапазоне от 1 до n;г) всех двузначных чисел.

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

program Summation;

va
n, i, sum, square, evenSum, twoDigitSum: integer;

begi
// а) первых n натуральных чисе
write('Enter a number n: ')
readln(n);

sum := 0
for i := 1 to n d
begi
sum := sum + i
end
writeln('Sum of first ', n, ' natural numbers: ', sum);

// б) квадратов первых n натуральных чисе
square := 0
for i := 1 to n d
begi
square := square + i * i
end
writeln('Sum of squares of first ', n, ' natural numbers: ', square);

// в) всех чётных чисел в диапазоне от 1 до
evenSum := 0
for i := 2 to n step 2 d
begi
evenSum := evenSum + i
end
writeln('Sum of all even numbers from 1 to ', n, ': ', evenSum);

// г) всех двузначных чисе
twoDigitSum := 0
for i := 10 to 99 d
begi
twoDigitSum := twoDigitSum + i
end
writeln('Sum of all two-digit numbers: ', twoDigitSum)
end.