Cделать с цикла repeat until логической переменной t присвоить значение true или false в зависимости от того, является натуральное число k степенью 3 или нет.

Var chislo: integer; proverka: boolean; begin    proverka: =true;         read(chislo);                 repeat                        if chislo=0 then                 //так как 0 не натуральное число                   begin                     proverka: =false;                       break;                   end;                 if (chislo mod 3)> 0 then                                begin                                        proverka: =false;                                       break;                             end                      else chislo: =chislo div 3;                 until(chislo=0);     if proverka then writeln('да')       else writeln('нет');     readln; end.

1)информационная сфера-это сфера деятельности субъектов, связанная с созданием, преобразованием и потреблением информации. материальное производство- производство, направленное на создание мат.благ. к примеру: в моем классе 25 человек,у каждого ученика по 2 родителя(мама и папа). у 17 из 25 учеников родители трудятся на создание материальных благ, из чего мы можем сделать вывод о том, что мы далеки от стадии информационного общества. 2)информатизация- политика и процессы, направленные на построение развитие телекоммуникационной инфраструктуры, объединяющей территориально распределенные информационные ресурсы. из этого определения можно узнать и цели информатизации. успехов в учебе! )

Var a: array[1..10] of integer;     b: array[1..10] of real;     i,n: integer;     s: real; begin   s: =0; n: =0;   write('массив a:   ');   for i: =1 to 10 do   begin     read(a[i]);     if a[i]< 0 then      begin       s: =s+a[i];       n: =n+1;     end;       write(a[i],' ');   end;   s: =s/n;     writeln;   writeln('среднее арифметическое отрицательных: ',s);   writeln('количество отрицательных: ',n);   write('массив b:   ');   for i: =1 to 10 do   begin     if a[i]< 0 then b[i]: =s     else b[i]: =a[i];     write(b[i]: 7: 3);   end; end.массив a:   2 2 -3 1 -5 -6 -5 9 -7 5  среднее арифметическое отрицательных: -5.2 количество отрицательных: 5 массив b:     2.000   2.000 -5.200   1.000 -5.200 -5.200 -5.200   9.000 -5.200   5.000