Переведите в биты-1, 5 мбайта; 2 кбайта ; 1 гбайт

12 288. 16 777216. 1 099511627776

1,5мб=12582912 бит 2кб=16384 бит 1 гб=8589934592 бит

Алгоритм на условном языке. m: =0.  "количество отрицателных" p: =0    "количество положительных" i: =1. пока i< > 0 повторять     i: =прочитать число, введенное с клавиатуры.     если i> 0 то p: =p+1.     если i< 0 то m: =m+1. конец цикла пока. вывести на экран('процент положительных = ', p/(p+ вывести на экран('процент отрицательных =  ',  m/(p+ алгоритм будет верно работать, если введено хотя бы одно число, отличное от нуля. в противном случае возникнет ошибка деления на ноль. в нормальных программах подобные случаи отлавливаются и корректно обрабатываются.

Pascalabc.net 3.4.0, сборка 1670 от 23.05.2018 внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(20,-20,60); a.println;   var x: =readinteger('какое число ищем? ');   if a.contains(x) then writeln('такое число есть')   else writeln('такого числа нет') end. примеры 42 23 59 0 20 23 41 26 47 8 23 42 20 35 31 53 -4 53 8 14 какое число ищем? 25 такого числа нет 15 1 44 40 55 3 31 -12 29 33 4 -13 -12 43 -14 51 44 -2 41 18 какое число ищем? -12 такое число есть