Во-первых, от пользовательских настроек курсора, во-вторых, от текущего положения\состоятия мыши: обычное, выполняется программа, на гиперссылке или другом объекте, пригодном для взаимодействия, при редактировании текста, при изменении размера окна, и других.
Var x, y, a, nod:integer;
nok:real;
begin
readln(x,y);
a:=x*y;
repeat if x > y then x:=x mod y
else y:=y mod x
until x*y=0;
nod:=x+y;
writeln(nod);
nok:=a/nod;
writeln(nok);
end.
Var
x:real;
Begin
Write('x = ');ReadLn(x);
if x <= -12 then x:=-x*x
else if (-12 < x)and(x < 0) then x:=x*x*x*x
else x:=x-2;
WriteLn('y = ',x);
End.
Var
a,b,c:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (a<b)abd(b<c) then Write('Верно')
else Write('Неверно')
End.
I = 1 байт.
тогда I = k*i или I = k/
k = 76
I(бит) = 76 * 8 = 608 бит
ответ: 2
<em>// PascalABC.NET 3.3, сборка 1633 от 10.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var k:=0;
var n:=ReadReal;
while n<>0 do begin
k+=1; Read(n)
end;
Writeln(NewLine,k)
end.
<u>Пример</u>
12
-12.53
0.345325
1532
-234534
0
5