Var a,b,n:integer;
begin
readln(a);//начало интервала
readln(b);//конец интервала
readln(n);//число
if (k>=a) and (k<=b) then
writeln('пренадлежит')
else writeln('не пренадлежит')
end.
Просто переведем оба числа в 10 систему счисления:
они равны.
Ответ: да
1. B:\*.*
2. G:\today.*
3. D:\?????.djvu
4. A:\f??.*
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var x := ReadReal('x =');
var s := Cos(x);
for var i := 1 to n do
s += Cos(x + i);
s.Println
end.
Y =-44 так как - 22 меньше минус 20 (у отрицательных все наоборот) поэтому y = -22*2 = -44