Написать 2 программы: 1. составить программу, которая по номеру дня в месяце печатает день недели. считаем, что 1–е число месяца – понедельник. 2. с клавиатуры вводится два целых числа, обозначающих возраст человека и его пол (1 – мужской, 2 –женский). составить программу, которая в зависимости от введенных данных определяет принадлежность человека к определенной группе: от 0 до 13 – мальчик (девочка); от 14 до 20 – юноша (девушка); от 21 до 70 – мужчина (женщина); более 70 – старец (старушка).программа в паскале авс. за хорошее решение еще 30

1 программа

var month: integer;

begin

write('введите число, обозначающее месяц: ');

read(month);

case month of

1: writeln ('январь');

2: writeln ('февраль');

3: writeln ('март');

4: writeln ('апрель');

5: writeln ('май');

6: writeln ('июнь');

7: writeln ('июль');

8: writeln ('август');

9: writeln ('сентябрь');

10: writeln ('октябрь');

11: writeln ('ноябрь');

12: writeln ('декабрь');

end;

end.

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

  writeln ('исходный массив d: ');

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.

а)

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.