1. Var a, b, c:real; d:integer;
Begin
Readln(a, b) ;
S:=a*b;
Write(s) ;
End.
2.
Var a, b, c:real; d:integer;
Begin
D:=0;
Readln(a);
If (a>0) then d:=d+1;
Readln(b) ;
If (b>0) then d:=d+1;
Readln(c>0) then d:=d+1;
Write(d);
End.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if (n div 100+(n div 10) mod 10+n mod 10).IsEven then Writeln(n/2)
else Writeln(2*n)
end.
<u>Пример</u>
n= 319
638
<span>Детерминированность или стохастичность. Если в модели среди величин имеются случайные, т.е. определяемые лишь некоторыми вероятностными характеристиками, то модель называется стохастической (вероятностной, случайной). В этом случае и все результаты, полученные при рассмотрении модели, имеют стохастический характер и должны быть соответственно интерпретированы.</span> <span>Здесь подчеркнем, что с точки зрения практики граница между детерминированными и стохастическими моделями выглядит расплывчатой. Так, в технике про любой размер или массу можно сказать, что это не точное значение, а усредненная величина типа математического ожидания, в связи с чем и результаты вычислений будут представлять собой лишь математические ожидания исследуемых величин. Однако такой взгляд представляется крайним. Удобный практический прием состоит в том, что при малых отклонениях от фиксированных значений модель считается детерминированной, а отклонение результата исследуется методами оценок или анализа ее чувствительности. При значительных же отклонениях применяется методика стохастического исследования.</span><span>
</span>