Дано натуральное число n, написать программу, которая выводит на экран последовательность квадратов чисел от 1 до n.

program pr1; uses crt; var i,n,p: integer; beginclrscr; readln(n); for i: =1 to n do writeln(sqr(i)); end.

учитывая, что ток напряжением свыше 12 вольт в сырых местах и 36 вольт в сухом месте опасный для жизни человека, во избежание поражения электрическим током, необходимо соблюдать правила безопасности:

1.  ни в коем случае нельзя прикасаться к , рубильникам, корпусам электромоторов и других частей электрооборудования, поскольку они могут быть под напряжением; 2. не следует поднимать оборванные провода, упавшие и становиться на них ногами, потому что они могут быть под напряжением; 3. не надо включать и выключать електрорубильники; в тех случаях, когда грозит авария или несчастный случай с людьми, рубильник может быть отключен любым человеком при соблюдении правил личной безопасности; 4. выключать и включать рубильник на распределительных щитах разрешено только электромонтерам; 5. нельзя пользоваться переносной электролампой напряжением свыше 36 вольт; 6. запрещено вкручивания и выкручивания электрических ламп напряжением свыше 36 вольт по мере необходимости надо вызвать электромонтера.

7.  не работайте с электроприборами, если вы утомлены, — электрическое сопротивление такого организма понижено, внимание ослаблено, реакция замедленна.

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

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

10. важно знать что:   переменный ток частотой 50 гц поражает человека больше, чем постоянный. например, переменный ток такой частоты силой 5—7 ма вызывает судороги рук, а постоянный такой же силы — лишь легкое нагревание. переменный ток силой 20—35 ма парализует руки внезапно, и если неизолированную токоведущую деталь человек взял пальцами, то руку от нее оторвать уже нельзя. постоянный ток такой силы вызывает незначительное сокращение мышц. и переменный, и постоянный ток силой 80—100 ма приводит к параличу дыхания.

 

const n=100;

m=100;

var a: array[1..n,1..m] of integer;

i,j,maxi,maxj,k: integer;

begin

randomize;

for i : = 1 to n do begin

    for j  : = 1 to m do begin

        a[i,j] : = random(100);

    end;

end;

maxi : = 1;

maxj : = 1;

for i : = 1 to n do begin

    for j  : = 1 to m do begin

        if (a[i,j] > a[maxi,maxj]) then begin

            maxi : = i;

            maxj : = j;

        end;

    end;

end;

k : = 0;

for i : = 1 to n do begin

    for j  : = 1 to m do begin

        if (a[i,j] == a[maxi,maxj]) then k : = k + 1;

    end;

end;

writeln('k = ', k);

end.