Найти сумму квадратов чисел 2, 5, 8,…,29.
Дополни программу для решения задачи:
var x, s:integer;
begin
s :=_;
x :=_;
while (_<=_) do
begin
s := s + x * x;
x := x +_;
end;
writeln (_);
end.

_-это пробелы куда надо вставлять буквы и цифры

1)

program pr1;

var i:integer; n,n2,n3:real;

begin

for i:=1 to 3 do begin

  writeln('daite tzifru'); readln(n);

  if n in [1..3] then writeln('Prenodlejit intervalu') esle writeln('Ne prenodlejit intervalu');

 end;

readln;

end.

2)

program p2;

var i,c,cod,summa:integer; s:string;

begin

 writeln('daite tzivfru'); readln(s);

  for i:=1 to length(s) do

   begin

     val(s[i],c,cod); summa:=summa+c;

   end;

str(summa,s);

if length(s)>1 then writeln('Summa ne yavljaetsya odnoznachnim chislom: ',s) else

 writeln(Summa  yavljaetsya odnoznachnim chislom: ',s);

readln;

end.

#include <iostream>
using std::cout;
using std::cin;
using std::endl;

int main()
{
   int n, m, counter = 0;

   cout << "Enter n: ";
   cin >> n;
   cout << "Enter m: ";
   cin >> m;

   if(n >= m)
   {
      cout << "Invalid value" << endl;
   }
   else
   {
      while(n <= m)
      {
         if(n % 4 == 0)
         {
            counter++;
         }
         n++;
      }
   }

   cout << counter << " value" << (counter != 1 ? "s" : "") << endl;

   cin.get();
   return 0;
}

Вывод:

Enter n: 2000

Enter m: 2012

4 values

На Паскале:

program test;
var n, m, counter: integer;

begin
  write('Enter n: ');
  readln(n);
  write('Enter m: ');
  readln(m);
  counter := 0;
  while n <= m do
  begin
    if n mod 4=0 then
      counter := counter + 1;
    n := n + 1;
  end;
writeln(counter, ' values');
readln();
end.