SketshUp програмасымен жұмыс істегенде қандай ережелерді сақтау керек
​

Объяснение:

// Example program

#include <iostream>

#include <string>

int main()

{

   int k[30];

   for(int i = 0; i < 30; i ++) //заполняем случайными числами

       k[i] = rand();

   int min_sum = 999999999;

   int num1, num2;

   for(int i = 0; i < (30 - 1); i ++) //цикл поиска, i меняется от начала

                                      //до предпоследнего элемента, чтобы не выйти

                                      //за пределы при обращении к i + 1 элементу

   {

       int sum = k[i] + k[i+1];//очередная сумма

       if(sum < min_sum) //сравниваем ее с текущим минимумом

       {//если она меньше, то

           min_sum = sum;//обновляем текущую сумму

           num1 = i; num2 = i + 1;//обновляем номер

       }

   }

   //на выходе из цикла в min_sum и num1 и num2 имеем самые минимальные номера

   std::cout << "min_sum = " << min_sum << " nomer1 = " << num1 <<" nomer2 = " << num2;

}

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.