Function Sign(x:real):integer;
begin
if x<0 then Sign:=-1
else if x=0 then Sign:=0
else Sign:=1;
end;
var a,b:real;
begin
writeln('a, b:');
readln(a,b);
writeln('Sign(A) + Sign(B) = ',Sign(a) + Sign(b));
end.
Пример:
<span>a, b:
-8 0
Sign(A) + Sign(B) = -1</span>
Компьютер это электронно вычислительная машина
инструмент это основное средство
цена компьютера это широкий выбор персональных компьютеров
1)MMСССXXIII, MDCCLXXXVI,MCMXLIX и MMMCDXCIX
<span>4 Кбайта=2^12 Байтов=2^15 битов
</span>16 Мбайтов=2^14 Кбайт= 2^24 байтов= 2^27 бита
2 Гбайта= 2^11 Мбайтов= 2^21 Кбайтов= 2^34 Битов
2) <,> или =:
32 байта(256 бит) <> 64 бита
1024 байта(8192 бит) <> 64 бита
6) Ответ 1 (определённость)
7) Ответ 1 (графические)