Question

Составьте  программу , которая находит сумму  квадратов чисел от 1 до 10, 1(2)+1(2)+3(2)+..10(2), номер два  составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 100. 1+3+5+......+99,                                                                              2 ЭТО СТЕПЕНЬ             

Answer 1

На Perl(сначала выводит первую задачу, потом вторую):

#!/usr/bin/perl
for(1..10){$sum=$sum+($_**2)};
print "$sumn";

for(1..100){if ($_%2!=0){$sum=$sum+$_}};
print "$sumn";