Из ряда чисел 6, 15, 24, 27 выпиши те, которые удовлетворяют условию.​

программа на паскале:

program xxx;

  var i, n, s : integer;

begin

  write ('введите n =' );

  readln (n);

  s: =0;

  for i: =1 to n do

    s: = s+ sqr(i+1);

  writeln ('сумма =' , s);

  readln

end. 

#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){  int x, y;   printf("\n vvedite x and y:   ");   scanf("%d" "%d", & x, & y);     if (x < y) printf("\n x = %d, y = %d", (x + y)/2, 2 * x * y);   else printf("\n x = %d, y = %d", 2 * x * y, (x + y)/2);   printf("\n\n to ");   getch( );   return 0; }

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.