мусс медовый
<span>1.Яичные желтки растереть с медом.</span>
<span>2.Добавить 50 г. меда и размешивать</span>
<span>3.если получилась густая однородная масса, то переход на 4 пункт, иначе на 2 пункт.</span>
<span>4.П<span>оставить ее на слабый огонь и, непрерывно помешивая, довести до густоты меда. 5.Затем снять с огня и охладить.</span></span>
<span><span>Цикл получается в 2,3 пункте</span></span>
var a,b,c,d:integer;
BEGIN
read(a,b,c,d);
if (a*b*c*d mod 3 = 0) then
writeln("Pravda")
else writeln("Nepravda");
END.
Var
x:real;
Begin
Write('x = ');ReadLn(x);
if x <= -12 then x:=-x*x
else if (-12 < x)and(x < 0) then x:=x*x*x*x
else x:=x-2;
WriteLn('y = ',x);
End.
Var
a,b,c:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (a<b)abd(b<c) then Write('Верно')
else Write('Неверно')
End.
Научно-практическая дисциплина, изучающая трудовые процессы с целью создания оптимальных условий труда, способствующих росту его производительности.
Var
x,y:real;
begin
Write('Введите число: ');
Readln(x);
if x=0 then Writeln('Функция не определена')
else if x=5 then Writeln('Значение функции бесконечно')
else
begin
if x<0 then y:=1/(x-1)
else y:=1/(x-5);
Writeln('F(x)=',y)
end
end.