Паскаль тілінде барлық натурал сандардың квадраттары қосындысын табыңыз?

Question

а-дан в-ға дейінгі барлық натурал сандардың квадраттарының қосыедысын табу керек! в>а
 массивпен шыгарат диді! плиз срочно керек.

Answer 1

С++ 

#include <iostream>
#include <vector>
#include <cmath>
using namespace std;
 
int main() {
    int n,q;
    cin >> n >> q;
    vector <int> a;
    a.reserve(n);
    vector <int> b;
    b.reserve(n);
    vector <int> sums;
    
    for(int i = 0; i < n; i++) {
        cin >> a[i];
    }
    
    for(int i = 0; i < n; i++) {
        cin >> b[i];
    }
    
    for(int i = 0; i < q; i++) {
        int l,r,sum = 0;
        cin >> l >> r;
        for(int j = l - 1; j < r; j++) {
            sum += pow(a[j] - b[j], 2);
        }
        sums.push_back(sum);
    }
    for(int i = 0; i < sums.size(); i++) {
        cout << sums[i] << endl;
    }
}