Var a,b: integer;
Begin
a:=2;
b:=4;
while b>=0 do
begin
b:=a*b+1;
a:=a-2;
end;
b:=b+a;
write (b);
End.
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>Вариант 1</u>
begin
var (x,a):=ReadReal2('Введите х и a через пробел:');
var y:real;
if x<=0 then y:=2*Sin(Abs(x))
else
if x<=5 then y:=Sqrt(x)
else
if x<=10 then y:=2*x*x-Sqrt(x)
else y:=Cos(2*x)/a;
Writeln('Y=',y)
end.
<u>Вариант 2</u>
begin
var (x,a):=ReadReal2('Введите х и a через пробел:');
Writeln('Y=',
x<=0 ? 2*Sin(Abs(x)) :
x<=5 ? Sqrt(x) :
x<=10 ? 2*x*x-Sqrt(x) : Cos(2*x)/a)
end.
<u>Примеры</u>
Введите х и a через пробел: 12.4 -3
Y=-0.315050171382724
Введите х и a через пробел: 5.8 1.156
Y=64.8716810842415
Function circle_func(x: real): real;
begin
circle_func := sqrt(4 - sqr(x + 8)) - 2;
end;
function line_func(x: real): real;
begin
line_func := 0.5*x + 1;
end;
function quadratic_func(x: real): real;
begin
quadratic_func := sqr(x - 6);
end;
var
x, y: real;
begin
writeln('Введите аргумент: ');
readln(x);
if ((x >= -10) and (x < -6)) then y := circle_func(x);
if ((x >= -6) and (x < 2)) then y := line_func(x);
if ((x >= 2) and (x < 6)) then y := 0;
if ((x >= 6)) then y := quadratic_func(x);
writeln(y:5:3);
end.
Товар это все то што можно продать, продать можно то што хотят купить.
Информация это в том числе знания.
Знание как сделать то или другое, формулы сплавов стали, пропорции градиентов в еде или лекарствах, методы добывания ископаемых, методы очистки. Бесспорно все это можно продать и стоит порой больших денег, потому что на них можно заработать еще больше денег
Это один из примеров
Учеба стоит не дешево, а это ничто иное как процесс получения и усвоения знаний/информации
Стратегические потому <span>ч</span>то на основе информации строится стратегия дальнейших действий
*div - целая часть от деления
mod - остаток от деления
1. Если число 192 разделим на 100, получим число 1,92. Целая часть=1 ⇒ а=1.
2. Для нахождения b сначала делим число 192 на 100 и пишем его остаток (остаток=92). Затем остаток делим на 10 (92 : 10 = 9,2) и пишем целую часть ⇒ b=2.
3. Чисто 192 делим на 10 и пишем остаток ⇒ с=2.
4. В итоге, мы a, b и c оказались равными цифрам нашего числа, а S их складывает ⇒ S ищет сумму цифр числа.