<span>program</span><span>factorial</span><span>;</span>
<span>function</span><span>fact</span><span>(</span><span>n</span><span>:</span><span>integer</span><span>)</span><span>:</span><span>longint</span><span>;</span><span>begin</span><span>if</span><span>(</span><span>n</span><span>=</span><span>0</span><span>)</span><span>then</span><span>fact</span><span>:=</span><span>1</span><span>else</span><span>fact</span><span>:=</span><span>n</span><span>*</span><span>fact</span><span>(</span><span>n</span><span>-</span><span>1</span><span>)</span><span>;</span>
<span>end</span><span>;</span>
<span>var</span><span>n</span><span>:</span><span>integer</span><span>;</span>
<span>begin</span>
<span>for</span><span>n</span><span>:=</span><span>0</span><span>to</span><span>16</span><span>do</span>
<span>writeln</span><span>(</span><span>n</span><span>,</span><span>'! = '</span><span>,</span><span>fact</span><span>(</span><span>n</span><span>))</span><span>;</span><span>end</span><span>.</span>
Если богиня сидящая слева является Правдой, то она не могла сказать что рядом с ней сидит Правда.
Предположим, что Правда сидит в центре, но тогда она не могла сказать про себя что она Мудрость.
Исходя из последнего высказывания по условию задачи и вывода что справа сидит Правда, получаем что в центре сидит Ложь, а слева Мудрость.
Ответ: Мудрость, Ложь, Правда.
Формула Герона используется для вычисления площади треугольника. В данном случае нет необходимости (как и нужных данных) для ее использования. Так, чтобы найти полупериметр (обозначен буквой p в формуле), мы уже должны знать длины сторон.
Вывод другой формулы и сама формула для нахождения длины отрезка находится на этом сайте: http://www.studyguide.ru/note.php?id=14
program ryazantsev;
var xa, ya, xb, yb, d: real;
begin
Writeln('Введите координаты первой точки (x, y)');
Readln(xa, ya);
Writeln('Введите координаты второй точки (x, y)');
Readln(xb, yb);
d:=Sqrt(Sqr(xb-xa)+Sqr(yb-ya));
Writeln(d)
end.
Ответ:
Объяснение:
Язык Паскаль.
Модель:
Среднее число пассажиров, перевозимых по Кольцевой ветке равно 850 000 человек.
ДСЧ выбрасывает число из интервала 1-100000. Если это число четное, то его вычитаем из среднего, иначе прибавляем к среднему.
Листинг:
uses Crt;
const n=850000;
m=7;
type Metro = array [1..m] of longint;
var A: Metro;
i: integer;
P, max: longint;
begin
ClrScr; Randomize; max:=0;
for i:=1 to m do
begin
P:=1+random(100000);
if (P mod 2 = 0) then P:=(-1)*P;
A[i]:=n+P;
if A[i]>max then max:=A[i];
WriteLn (' ', i, ': ',A[i]:5);
end;
WriteLn(' Max = ',max);
ReadLn;
end.
Результат работы - в прикрепленных фото.
Алгоритм подсчета числа и суммы элементов
int z[20];
int s=0,n=0;
for(int i=0;i<20;i++)
if(z[i]<8&&z[i]>2)
{
n++;
s+=z[i];
}
cout<<"sum="<<s<<", num of elem="<<n;