Var x,y: real;
begin
write(' x = '); readln(x);
if x<0 then y:=sqr(x)*x+2
else y:=sqrt(x);
writeln(' y = ',y:6:4);
end.
<span>
</span>
Биология - модель кровеносной системы, модель опорно-двигательного аппарата (скелет)
География - карта, глобус (модели Земли)
Физика - модель молнии, модель маятника (движение маятника), модель электрической цепи.
Химия - химический состав вещества (например, хим. состав воды - 2 молекулы водорода и одна молекула кислорода), модель молекулы азота.
Геометрия - модели геометрических фигур (геометрических тел - куб, призма...),
История - модели развития стран, модели развития военных действий
<em>Формула некорректна, поскольку при i=1 и k=1 знаменатель дроби обращается в ноль. Программа будет всегда возвращать "бесконечность".</em>
var
i,k,m,n,ik:integer;
si,sk,facti,factk:double;
begin
Write('Введите через пробел значения m и n: ');
Read(m,n);
sk:=0; factk:=1;
for k:=1 to m do
begin
si:=0; facti:=1; ik:=1; factk:=factk*k;
for i:=1 to n do
begin
ik:=-ik; facti:=facti*i;
si:=si+factk/(ik+facti)
end;
sk:=sk+si
end;
Writeln('Результат: ',sk)
end.
поменять местами первую и последнюю цифры в трехзначном числе