C++
Программирование вложенных циклов Постановка задачи В настоящей лабораторной работе необходимо выполнить вычисления, для организации которых следует использовать несколько циклов, причем некоторые из них должны быть вложенными. Варианты заданий В работе необходимо вычислять значение (я) функции y = f(x). Варианты заданий отличаются видом функции (табл..1). В нечетных вариантах заданий необходимо вычислять значение функции для одного значения аргумента x, а в четных следует решать задачу табулирования. При вычислении значения функции оказывается необходимым вычислять несколько сумм (произведений). Вычисление некоторых сумм (произведений) может потребовать организации​

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

program nn;

uses crt;

var a: array [1..20] of real;

t: real;

i,n,min: integer;

begin

    {ввод последовательности, это самостоятельно}

    min : = 1;

    for i : = 1 to 20 do

    begin

          if  a[i] < a[min] then

                min : = i;

    end;

    t : = a[min];

    a[min] : = a[20-n];

    a[20-n] : = t;

end.

иванов парикмахер, петров плотник, сидоров мельник, гришин почтальон, алексеев маляр.  и 2413      маляр 1

п   142     мельник 2

с   13     плотник 3

г 12      почта 4

а       парикмахер 5