1) найдите сумму чисел из диапазона от а до в с шагом 3 2) для заданного натурального n подсчитать сумму s = 1^2+2^2+3^2++n^2

1)
var
  a,b,s: integer;
begin  
  write ('Введите число A: ');
  readln (a);
  write ('Введите число B: ');
  readln (b); 
  s:=0;
  while a<=b do begin
    s:=s+a;
    a:=a+3;
  end;  
  writeln ('Сумма чисел из диапазона от А до В с шагом 3 = ',s);
end.

Пример:
Введите число A: 10
Введите число B: 16
Сумма чисел из диапазона от А до В с шагом 3 = 39

2)
var
  n,s,i: integer;
begin  
  write ('Введите n: ');
  readln (n);  
  s:=0;
  for i:=1 to n do 
    s:=s+i*i;
  writeln ('S = ',s);
end.

Пример:
Введите n: 5
S = 55

Объяснение:

program XandY;

const

rndlim=50;

var

x, y : integer;

begin

x:=random(rndlim);

y:=random(rndlim);

Writeln('x=',x,' y=', y);

Writeln('x+y = ',x+y);

Writeln('x-y = ',x-y);

Writeln('x*y = ',x*y);

Writeln('x^2 + y^2 = ',sqr(x)+sqr(y));

end.

Запуск:

Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64

Copyright (c) 1993-2012 by Florian Klaempfl and others

Target OS: Linux for x86-64       

Compiling main.pas                

Linking a.out                     

16 lines compiled, 0.2 sec

x=27 y=29                          

x+y = 56                          

x-y = -2                          

x*y = 783                           

x^2 + y^2 = 1570

ИТМО пишете?

GNU C++

#include <iostream>

#include <vector>

using namespace std;

signed main() {

   int N,k=0;

   cin>>N;

   int a[N];

   vector<pair<int,int> >b;

   for(int i=0;i<N;i++)

   {

       cin>>a[i];

   }

   int c = 1;

   for(int i=1;i<N;i++)

   {

       if (a[i]==a[i-1])

       {

           c++;

       }

       else

       {

           b.push_back(make_pair(a[i-1],c));

           c=1,k++;

       }

   }

   b.push_back(make_pair(a[N-1],c));

   cout<<k<<endl;

   for(int i=0;i<b.size();i++)

   {

       cout<<b[i].first<<' '<<b[i].second<<endl;

   }

   return 0;

}