<u>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
<em>№1</em>
function f(a,x:real):=(sin(a*x)+x*x*x)/(exp(x)+abs(tan(x)));
begin
var a,x:real;
Write('Введите a,x: '); Read(a,x);
Writeln('y=',f(a,x))
end.
<u>Пример</u>
Введите a,x: -3.5 1.13
y=0.415984691762092
<em>№2</em>
function f(x:real):=sin(x)*cos(x);
function G(x:real):=cos(x)-sin(x);
begin
var a:=ReadReal('a=');
var b:=ReadReal('b=');
Writeln(f(a)*g(a)*f(a+b)*sqr(g(a-b)))
end.
<u>Пример</u>
a= -4.2
b= 1
-0.00583852364109992
<em>№3</em>
function m(a,b,c:real):=sqrt(2*(b*b+c*c)-a*a)/2;
begin
var a,b,c:real;
Writeln('Введите a b c: '); Read(a,b,c);
Writeln('ma=',m(a,b,c));
Writeln('mb=',m(b,a,c));
Writeln('mc=',m(c,a,b));
end.
<u>Пример</u>
Введите a b c:
4.15 6.2 7.18
ma=6.37891644403656
mb=4.97769524981191
mc=3.86563707556724
var n,a,i,max:integer;
begin
readln(n);
max:=0;
for i:=1 to n do
begin
read(a);
if (a mod 10=2)and(a>max) then max:=a;
end;
writeln(max);
end.
Пример:
17 20 12 41 15 5 52 10
52
Значит будет так 35.56×1200×35.56×1200×24=43701590016 бит
Размер изображения в дюймах × разрешающую способность сканера × глубину цвета
Ps dpi означает dot per inch (точек на дюйм)
- истина, если хотя бы одно из утверждений
есть истинным
если
- ложь, то гарантированно, что и
и
также ложные утверждения
утверждение
- ложь, тогда
утверждение
- ложь, и также утверждение
- ложь, и тогда
утверждение
- истина, и также утверждение
- истина
значит у Маши может быть не меньше 4 конфет, и в месте с тем, их меньше чем 7, т.е.:
т.е. у Маши или 4, или 5, или 6 конфет
Ответ: 4, 5, 6
