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>
20*32*4=2560 //Количество символов в статье
2560*16=40960 бит
40960/8=5120 //Переводим в байты
5120/1024=5 //Переводим в Кб
Ответ:5 килобайт
2^10=1024
2^6=64
1024*64=65536 бит
1 кбит=8 бит
65536/8=8192 кбит
Ввод: a ^ b ^ c С/П.
П0 -> П1 -> П2 ИП1 ИП0 + + 2 / П3 ИП0 - ИП3 ИП1 - ИП3 ИП2 - * * ИП3 / пи * С/П
var n,a,k1,k2,i:integer;
begin
write('Введите количество вводимых чисел: ');
readln(n);
for i:=1 to n do
begin
write('Введите ',i,' числo: ');
readln(a);
if a mod 2 = 0 then k2:=k2+1
else k1:=k1+1
end;
writeln ('Количество четных чисел: ',k2);
writeln ('Количество нечетных чисел: ',k1)
end.