Известны размеры двух ящиков(длина, ширина, высота) .определить объем какого ящика больше . размеры меньшего ящика увеличить в два раза и снова сравнить объемы ящиков . вывести на экран больший объем. составить программу в паскале. известны радиусы и координаты центров двух окружностей таких , что одна окружность не содержит внутри другой . определить пересекаются ли эти окружности (расстояние между центрами должно быть меньше суммы радиусов определит площадь большей окружности. составить программу в паскале

Пример на c#, авось придумать код на паскале, т.к сам онли в c#: int perva, pervb, pervv; int vtora, vtorb, vtorv; console.writeline("введите длину первого ящика"); perva = convert.toint32(console.; console.writeline("введите ширину первого ящика"); pervb = convert.toint32(console.; console.writeline("введите высоту первого ящика"); pervv = convert.toint32(console.; console.writeline("введите длину второго ящика"); vtora = convert.toint32(console.; console.writeline("введите ширину второго ящика"); vtorb = convert.toint32(console.; console.writeline("введите высоту второго ящика"); vtorv = convert.toint32(console.; int result; int result2; result = perva * pervb * pervv; result2 = vtora * vtorb * vtorv; obratno: if (result > result2) { int anotherresult; anotherresult = result2 * 2; goto obratno; } if (result < result2) { int anotherresult2; anotherresult2 = result * 2; goto obratno; }

Var   s: string;   i,j,k,p,min,n: integer; begin   write('введите предложение: '); readln(s);   s: =s+' ';   n: =length(s);   min: =n;   j: =0;   for i: =1 to n do       if s[i]=' ' then begin           k: =i-j-1;           if min> k then begin min: =k; p: =j+1 end;           j: =i;       end; writeln(min,' ',copy(s,p,min)) end.  

Var    s,q: string;   i,n,j,m,k,l: longint; begin  readln(s);   m: =maxlongint;     s: =' '+s+' ';     for i: =1 to length(s) do  if s[i]< > ' ' then      begin    if s[i-1]=' ' then l: =i;           if s[i+1]=' ' then    begin       if m> length(copy(s,l,i-l+1)) then          begin              q: =copy(s,l,i-l+1);               m: =length(q);       end;         end;     end;   writeln(q); {слово}   writeln(m); {кол. букв}  end.