Составить программу в пионерском лагере сформировали 4 отряда. в 1-ом отряде n мальчиков, а девочек в 2 раза больше чем мальчиков. во 2-ом отряде детей на 5 больше, чем в первом. в 3-м отряде столько же, сколько в 1-ом и во 2-ом вместе взятых. в 4-ом отряде детей на 10 больше, чем девочек в первом отряде. сколько всего детей в лагере?

В первом отряде N мальчиков и 2N девочек. Это 3N детей. Во втором в 5 раз больше. Это еще 15N детей. В сумме 18N. В третьем еще столько же. Это 36N. В четвёртом в 10 раз больше чем девочек в первом. Это 20N. В итоге выходит 56N.

using System;

namespace t29764806

{

   internal class Program

   {

       private static void Main(string[] args)

       {

           Console.WriteLine("Введите количество мальчиков в первом отряде");

           Console.WriteLine($"Количество детей во всём лагере: {56 * int.Parse(Console.ReadLine())}");

       }

   }

}

Program abc;Const  n=3;  m=3;Var  a:array[1..n,1..m] of integer;  b,y,i,j,sum:integer;  srd:real;  Begin  Writeln('Введите числа массива: ');    For i:=1 to n do      For j:=1 to m do      Begin        Write('a[',i,',',j,']= ');        Readln(a[i,j]);        if a[i,j]>0 then           begin             sum:=sum+a[i,j];            inc(b);          end         else          If a[i,j]<0 then            Inc(y);       End;     If sum>0 then      begin       srd:=sum/1      b;      Writeln('Среднее =',srd);      end      else      Writeln('Нет положительных членов массива');     If y>0 then      begin       Writeln('Количество отрицательных элементов =',y);      end      else      Writeln('Нет отрицательных членов массива');End.

Varm: set of byte;u,s,r,a,p,e,c: integer;beginm := [];for u := 1 to 6 doif not (u in m) thenbeginInclude(m, u);for s := 0 to 6 doif not (s in m) thenbeginInclude(m, s);for r := 0 to 6 doif not (r in m) thenbeginInclude(m, r);for a := 0 to 6 doif not (a in m) thenbeginInclude(m, a);for p := 1 to 6 doif not (p in m) thenbeginInclude(m, p);for e := 0 to 6 doif not (e in m) thenbeginInclude(m, e);for c := 0 to 6 doif not (c in m) thenbeginInclude(m, c);if u * 1000 + s * 100 + s * 10 + r +u * 100 + s * 10 + a =p * 10000 + e * 1000 + a * 100 + c * 10 + e thenWriteLn(u, s, s, r, ' + ', u, s, a, ' = ', p, e, a, c, e);Exclude(m, c)end;Exclude(m, e);end;Exclude(m, p);end;Exclude(m, a)end;Exclude(m, r)end;Exclude(m, s)end;Exclude(m, u)end;WriteLn(u, s, s, r, ' + ', u, s, a, ' = ', p, e, a, c, e);end.

{попробуй это}