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] — специалист со средним специальным медицинским образованием в области сестринского дела. Медицинская сестра относится к среднему медицинскому персоналу, является младшим специалистом (это указано в дипломе медсестры) по отношению к специалисту — врачу.
Начальное медицинское образование получают младшие медицинские сестры и санитарки, окончившие специальные курсы или получившие неполное среднее медицинское образование. Они относятся к младшему медицинскому персоналу.
Медицинская сестра выступает врача в лечебно-профилактических учреждениях, выполняет врачебные назначения и осуществляет сестринский процесс.
слово 1: байты 0,1, адрес 0
слово 2: байты 2,3, адрес 2
слово 3: байты 4,5, адрес 4
слово 4: байты 6,7, адрес 6
слово 5: байты 8,9, адрес 8
...
слово n, байты 2(n-1),2(n-1)+1, адрес 2(n-1)
ответ: 8