Составьте программу на языке программирования pascal в подвале школы потоп. n литров воды оказалось в зоне потопа. у учащихся, устранить потоп, имеются ведра вместимостью 12 литров. сколько вёдер воды нужно вынести, чтобы полностью устранить потоп в школе

Program n1;
var n: integer;
begin
readln(n);
if n mod 12 = 0 then writeln('надо вынести ', n div 12, ' ведер') 
else writeln('надо вынести ', (n div 12)+1, ' ведер');
end.

//Pascal ABC.NET v3.1 сборка 1172

Var
 ar:array of integer;
 n,i,min,mini:integer;
begin
randomize;
min:=2147483647;
 writeln('Введите размерность:');
 readln(n);
 setlength(ar,n);
 writeln('Array:');
  for i:=0 to n-1 do
   begin
    ar[i]:=random(-30,30);
    write(ar[i]:4);
    if min>=ar[i] then
     begin
      min:=ar[i];
      mini:=i;
     end;
   end;
  for i:=0 to mini-1 do
   if ar[i]<0 then ar[i]:=0;
 writeln;
 writeln('Final array:');
  for i:=0 to n-1 do
   write(ar[i]:4);
end.

Пример ввода:
5
Пример вывода:
Array:
  -3 -26  -2  18 -21
Final array:
   0 -26  -2  18 -21

1.

ответ: Число символов в алфавите – это его мощность. Формула определения количества информации: N=2 i , где N – мощность алфавита (количество символов), i – количество бит (информационный вес символа).

2.

проце́ссор Центральная часть компьютера, выполняющая заданные программой преобразования информации и осуществляющая управление всем вычислительным процессом.

3.

Для обычного компьютера более вредны нагрузки, возникающие при включении и выключении, чем сутки-другие непрерывной работы. Поэтому, как правило, сохраннее всего компьютер будет, работая непрерывно. Но сейчас вычислительная техника достаточно надёжная, и выключением раз в сутки компьютеру вы тоже сильно не навредите.

4.

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