<span>Random это функция</span><span> возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:</span>
A: = Random(101)-50; {Числа от -50 до 50}
B: = Random(101)-200; {от -100 до 100}
<span>А теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!</span>
ИК-порт:пульт-телевизор.
Bluetooth: Мобильный телефон
Var a,a1,a2,a3,a4,b:integer;
begin
write('a = ');
readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
b:=a1*1000+a3*100+a2*10+a4;
writeln('b = ',b);
end.
Пример:
a = 4682
b = 4862
512*272*1=<span><span>139264бит/8/1024=17 Кбайт</span></span>