Мяч имеет круглую форму,внутри него воздух,он прыгает отскакивая от чего либо.
<em>// PascalABC.NET 3.2, сборка 1416 от 26.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var k,b:integer; Read(k,b);
var a:=Range(1,120).Select(x->k*x+b).ToArray;
a.Println
end.
Var a:real;
Begin
Write('a = ');ReadLn(a);
WriteLn('S = ',a*a);
End.
Var
A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if A > 0 then A:=A+1;
WriteLn(A)
End.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,h):=ReadReal3('Введите границы и шаг табуляции:');
if a>b then Swap(a,b); // если перепутали границы
var x:=a;
while x<=b+h/2 do begin
Write(x:10:5);
var y:=Ln(x)/Tan(x);
if real.IsNaN(y) or real.IsInfinity(y) then
Writeln(' значение не существует')
else Writeln(y:15:5);
x+=h
end
end.
<u>Примеры</u>
Введите границы и шаг табуляции: -5 5 1
-5.00000 значение не существует
-4.00000 значение не существует
-3.00000 значение не существует
-2.00000 значение не существует
-1.00000 значение не существует
0.00000 значение не существует
1.00000 0.00000
2.00000 -0.31722
3.00000 -7.70704
4.00000 1.19733
5.00000 -0.47609
Введите границы и шаг табуляции: -1 1 0.2
-1.00000 значение не существует
-0.80000 значение не существует
-0.60000 значение не существует
-0.40000 значение не существует
-0.20000 значение не существует
0.00000 значение не существует
0.20000 -7.93961
0.40000 -2.16723
0.60000 -0.74667
0.80000 -0.21672
1.00000 0.00000
64 = 1000000
-120 = -1111000
-96 = -1100000
57 = 111001
Вот конвертер: http://whoyougle.ru/measure/hex/
