Паскаль пишется как Pascal.
var
a, sum : integer;
begin
read (a);
sum := 0;
while (sum <= 10) and (a > 0) do
begin
sum := sum + a mod 10;
a := a div 10;
end;
if sum > 10 then write ('Yes') else write ('No');
end.
может ты имеешь в виду у каких объектов могут быть такие признаки? тогда у метериальных! <em>(если я не ошибаюсь бывают еще информационные)</em>
1.
var x: real;
begin
readln(x);
if (x>=-4)and(x<4) then writeln('y = ',sqrt(x*x+4))
else writeln('Функция не определена');
end.
Пример:
2
<span>y = 2.828427124746190e+00
2.
var x: real;
begin
readln(x);
if (x>=-4)and(x<4) then
begin
if x*x-4>=0 then writeln('y = ',sqrt(x*x-4))
else writeln('Корень из отрицательного числа');
end
else writeln('Функция не определена');
end.
Пример:
0.5
<span>Корень из отрицательного числа</span></span>
ответ - такое число х в битах, что 2 ^ х > 80
=> х = 7 бит
а) ADD14 (16) + 356DC (16) = E33F0 (16)
б) 8A6D5 (16) - 9DDF (16) = 808F6 (16)