очень нужно иныорматика 6класс учебнтк ЛЛ Босовв 'АЮ Босова 2013г

Надеюсь сравнение так надо писать

Объяснение:

#include <bits/stdc++.h>

using namespace std;

long long n, m, a, b;

void squares(long long n, long long m){

while(n){

a += pow(n % 10, 2);

n /= 10;

}

while(m){

b += pow(m % 10, 2);

m /= 10;

}

cout << a << ' ' << b << '\n';

if (a > b){

cout << a << " > " << b;

}

else if (a < b){

cout << a << " < " << b;

}

else{

cout << a << " = " << b;

}

}

int main() {

cin >> n >> m;

squares(n, m);

return 0;

}

исходный код на языке программирования pascal

const n = 10;

var

    a: array[1..n] of integer;

    i: byte;

    avrg: real;

    sum: integer;

begin

    randomize;

    for i: =1 to n do a[i]: =random(50)+1;

    sum : = 0;

    for i: =1 to n do sum : = sum + a[i];

    avrg : = sum/n;

    // весь массив

    for i: =1 to n do write(a[i]: 3);

    writeln;

    writeln('среднее арифм.: ',avrg: 4: 2);

    // больше avrg    

    for i: =1 to n do if a[i]< avrg then write(a[i]: 3);

    writeln;

end.

пример(ы) выполнения программы на языке pascal

13 23 45   2   9 28 47 30 18 12

среднее арифм.: 22.70

13   2   9 18 12