1.напишите программу, определяющую сумму s=1+2+3++99 2.напишите программу, определяющую произведение p=1*2*3**10 , , добро вернется

1)
s=0
for i in range(1, 99)
    s+=I
print(s)
2)
p=1
for I in range(2, 10)
    p*=I
print(p)

program Calc1;

var

 m, k, x, y: Double;

begin

 Write ('Введите m, k, x: ');

 ReadLn (m, k, x);

 if m * k - x >= 2 then

   y := Sqr (x) + Sin (6 * x) - (k + 1)

 else

   y := Power (x, 3) - m * k + 3;

 WriteLn ('y = ', y :20 :10);

 ReadLn;

end.

program Calc2;

const

 E = 1;

 F = -2;

var

 x, y: Double;

begin

 Write ('Введите x: ');

 ReadLn (x);

 if x > Pi then

   y := Sqr (Pi) + E * x * Ln (x)

 else if x < 0 then

   y := 0

 else

   y := Pi / 4 - F * x;

 WriteLn ('y = ', y :20 :10);

 ReadLn;

end.

Объяснение:

Медици́нская сестра́ (медсестра́)[1] — специалист со средним специальным медицинским образованием в области сестринского дела. Медицинская сестра относится к среднему медицинскому персоналу, является младшим специалистом (это указано в дипломе медсестры) по отношению к специалисту — врачу.

Начальное медицинское образование получают младшие медицинские сестры и санитарки, окончившие специальные курсы или получившие неполное среднее медицинское образование. Они относятся к младшему медицинскому персоналу.

Медицинская сестра выступает врача в лечебно-профилактических учреждениях, выполняет врачебные назначения и осуществляет сестринский процесс.